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Libri firmati JACKSON I 


Maurizio Piccoli 

FENDER 

storia di un mito (1945-1985) 

Sono trascorsi quarant'anni da quando Leo Fender 
iniziò la sua magnifica impresa; questo libro, che pure 
non ha tratto spunto da ragioni celebrative, sicuramente 
è maturato dalla consapevolezza che un arco cosi 
ampio di tempo richiedesse un'analisi e un ordinato 
recupero della non Indifferente mole di dati disponibili 
sulla globalità della produzione Fender. 

Il libro abbraccia tutto ciò che dal 1945 ai giorni nostri 
è uscito con il marchio Fender, privilegiando 
adeguatamente quegli strumenti di maggior interesse 
sui quali si puntano gli occhi dei fans della casa 
americana. 

249 pagine 

codice 800H L. 28.000 


Goffredo Haus 

ELEMENTI DI INFORMATICA 
MUSICALE 

Questo libro è rivolto a chi intende accostarsi 
all'informatica musicale ed in particolare agli studenti 
universitari di Scienze dell'Informazione, Matematica, 


La Biblioteca che fa testo 


Fisica e .ngegneria Elettronica. 

È rivolto anche al musicista interessato alle tematiche 
dell’informatica musicale, che disponga di un corredo 
elementare di nozioni sugli elaboratori elettronici. 

Gli argomenti trattati comprendono: elementi di 
matematica di base; descrizione formale di fenomeni 
musicali; tecniche di analisi, elaborazione e sintesi del 
testo musicale; tecniche di analisi, elaborazione e 
sintesi del suono; metodi per la rappresentazione 
grafica di informazioni musicali; elementi di ingegneria 
del software musicale; elementi sulle architetture dei 
sistemi per l'elaborazione musicale, elementi sulle 
tecnologie avanzate utilizzate nel settore. 

232 pagine 

codice 802H L. 22.500 


CEDOLA DI COMMISSIONE LIBRARIA 


VOGLIATE SPEDIRMI 


n° copie 

codice 

Prezzo unitario 

Prezzo totale 













Totale 



□ Pagherò contrassegno al postino il prezzo indicato più L. 3.000 per contributo fisso 
spese di spedizione. 


Condizioni di pagamento con esenzione del contributo spese di spedizione: 


□ Allego assegno della Banca □ Allego fotocopia del versamento 

su c/c n. 11666203 a voi intestato 


□ Allego fotocopia di versamento 
su vaglia postale a voi intestalo 



GRUPPO 

EDITORIALE 

JACKSON 


Attenzione compilare per Intero 
la cedola 

ritagliare (o fotocopiare) e spedire 
in busta chiusa a; 

GRUPPO EDITORIALE JACKSON 

Divisione Libri 

Via Rosellini, 12 - 20124 Milano 


Nome 


Cognome 


Via 


Cap 


Cma 


Prov 


Data 


Firma 


Spazio riservato ale Aziende. Si richiede l'emissione di Iattura 
Partite i.v A I I I 1 I I I 1 M 1 I 


ORDINE 
MINIMO 
t 50 000 


















































N. 27 

APRILE 1985 


ARTICOLI 


GUIDA 



In copertina: questo mese vi pie- 
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LA COMUNICAZIONE 
CAMBIATA 

Questo libro vuole offrire una occa¬ 
sione a tutti i suoi lettori per analizza¬ 
re, scoprire e potenziare le proprie 
capacità comunicative e divenire pro¬ 
tagonisti reali di una ampia trasfor¬ 
mazione in corso, di cui uno degli 
aspetti più evidenti è costituito dall’e- 
spandersi progressivo delle tecno¬ 
logie. 
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Giulio Carducci 

LE APPLICAZIONI 
DEL COMPUTER 
NELL’UFFICIO 
MODERNO 

Questo libro vuole essere un’introdu¬ 
zione all'informatica e, nel contem¬ 
po, una guida all'utilizzo consapevole 
dello strumento del giorno, il perso¬ 
nal computer, nell'ufficio moderno e 
nello studio professionale. È rivolto 
pertanto, ad un vasto pubblico: ad¬ 
detti ai vari settori dell’azienda, qua¬ 
dri, dirigenti, ingegneri, architetti, 
professionisti in genere. 

Cod. 407H Pag. 132 Lire 23.000 


Michael Browne 

UNITÀ A DISCHI PER 
MICROCOMPUTER 

Il libro, destinato a lettori con una 
buona conoscenza di base dell’uso di 
un calcolatore e del linguaggio BA¬ 
SIC, descrive il funzionamento dell’u¬ 
nità a dischi di un personal computer 
e il significato dei comandi relativi, 
con particolare attenzione per le di¬ 
verse tecniche di gestione dei file su 
disco. 

Il libro è arricchito di diversi pro¬ 
grammi esempio in BASIC Commo¬ 
dore 4.0, relativi alle diverse tecniche 
di organizzazione e gestione dei file. 

Cod. 300P Pag. 156 Lire 15.000 


Mauro Salvemini 

URBANISTICA 
E INFORMATICA 


Cod. 538P Pag. 112 Lire 10.500 


Arthur Naiman 

WORD STAR 

Perché un computer, anche di cate-' 
goria micro, sia. utile nell’attività di 
ufficio è essenziale che permetta 
anche di effettuare l’elaborazione dei 
testi, con tutte le funzioni che ciò 
comporta. I prodotti software a ciò 
destinati sono oggi moltissimi ma 
solo alcuni emergono per completez¬ 
za e flessibilità: fra questi Wordstar è 
sicuramente uno dei più riusciti. 

Cod. 525P Pag. 222 Lire 23.000 
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Sempre più vaste sono le applicazio¬ 
ni dell'informatica in ogni settore del¬ 
la vita e del lavoro, e in particolare 
quelle della computer grafica. Nean¬ 
che mestieri e professioni con una 
origine antica come l'architetto o 
l'urbanistica si 'salvano* dall’onda 
dell'informatica. 

Un entusiasta utilizzatore di quest'a¬ 
rea culturale racconta in questo libro 
per i colleghi e gli studenti di archi¬ 
tettura e di urbanistica tutti i vantaggi 
e gli avanzamenti possibili nella pro¬ 
gettazione e lo studio di nuovi edifici, 
complessi edilizi o urbani grazie alla 
computer grafica. 

Cod. 801P Pag. 224 Lire 30.000 




























Il tempo perduto 

di Riccardo Paolillo 

La dimensione “tempo” assume una importanza rile¬ 
vante in campo informatico. 

A pensarci bene, qualunque valutazione di prestazioni 
di calcolatori considera il tempo come termine principa¬ 
le di paragone; ecco quindi come sia normale parlare di 
elaborazioni veloci o irrimediabilmente lente. Ma an¬ 
che, di tempi di apprendimento o, nel caso di home 
computer, di tempo buttato via per giocare. 

In definitiva tempi di tipo diverso: positivi o negativi, 
ma comunque condizionanti per la nostra esistenza. 

Su questo ed altri aspetti, che potremmo forse esageran¬ 
do un po’ definire di filosofia dell’informatica, si è recen¬ 
temente acceso un vivace dibattito tra qualificati osser¬ 
vatori di diverse discipline. 

In particolare il maggior numero di commenti si è avuto 
ogni qualvolta si è applicata l’informatica al sapere. 
Applicazioni di questo tipo hanno suscitato, come è 
ovvio, reazioni contrastanti. In contrasto con chi ha 
manifestato il proprio entusiasmo, si sono avute altre 
persone di opinione completamente opposta. 

Alcuni quotidiani, come ad esempio il Corriere della 
Sera, hanno recentemente ospitato interventi di entram¬ 
be le tendenze. 

L’elemento comune alla maggioranza dei commenti è 
stato proprio il tempo: alcuni osservatori hanno messo 
in risalto il fatto che il tempo recuperato grazie alle 
macchine può essere proficuamente impiegato in attivi¬ 


tà più stimolanti o avanzate. 

Altri, come Guido Ceronetti, hanno estremizzato in 
senso negativo il proprio giudizio arrivando a dire che se 
in un giorno, grazie al computer, una persona riesce a 
fare ciò che avrebbe fatto in trecento, gli riesce poi 
difficile giustificare la propria presenza al mondo negli 
altri duecentonovantanove. 

Tutti i pareri, specie se espressi come in questo caso da 
commentatori qualificati, sono ugualmente rispettabili. 
Noi, ovviamente, ci identifichiamo con i primi sulla base 
di un rapporto quotidiano e produttivo con il calcolato¬ 
re. 

D’altra parte, occorre tenere conto del fatto che le infor¬ 
mazioni sulle possibilità di utilizzo del computer non 
sono uniformemente diffuse. E, dato che la natura uma¬ 
na è istintivamente diffidente verso ciò che non conosce, 
ha ragione il fisico Carlo Bernardini quando afferma 
che come in certi paesi ancora primitivi la gente ha 
paura della fotografia e della registrazione della voce, da 
noi c'è chi ha ancora paura della memoria e della rapidi¬ 
tà del calcolatore. 

Non dimentichiamo comunque che anche in questo 
campo, e soprattutto nel settore a noi più vicino della 
microinformatica, esiste la possibilità di tempo perduto. 
Questo succede quando il personal computer, utilizzato 
non come tale ma solo come videogame, diventa in 
pratica una droga irresistibile. 

Con questo non vogliamo assolutamente sparare a 
zero contro un uso ludico del calcolatore; semplicemen¬ 
te riteniamo che oltre ad un utilizzo esclusivamente 
passivo si dovrebbe tentare di operare in modo creativo. 
Magari inventando da soli il proprio videogame. 
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Scopa a (re carte 

Sono un vostro assiduo lettore, vi 
scrivo questa lettera per parlarvi di 
un vostro programma che avete 
pubblicato nel numero 21 del 1984: 
La scopa a tre carte di Stefano Gua- 
rinelli. 

L’ho battuto tutto quanto sul mio 
Commodore 64; dopo di che mi da¬ 
va un errore nella linea 9200: 
FORK = 1NTTON + 2. 

Nel mio listato era giusta, allora mi 
sono messo a controllare tutto il 
programma: tranne qualche errore, 
che non incideva nell’errore della li¬ 
nea 9200, era tutto giusto. 

Siccome era un gioco che m'interes¬ 
sava moltissimo sono rimasto un po’ 
con l’amaro in bocca. Ho aspettato 
il prossimo numero per vedere se 
avevate pubblicato un errata corri¬ 
ge, ma niente da fare. Dopo un me¬ 
setto l’ho battuto di nuovo e per 
l’ennesima volta mi dava sempre lo 
stesso errore. 

Se siete cosi gentili di rispondermi 
dicendomi che c’è effettivamente un 
errore, vi sarò molto grato. 

Renato Salmoria 
Torino 

Quando pubblichiamo programmi 
di una certa lunghezza, sappiamo che 
se da un lato facciamo cosa gradita a 
molti, dall'altro obblighiamo a un 
lungo e spesso noioso lavoro di rico¬ 
piatura dei listati. 

D'altra parte non ci sono alternative; 
o meglio, per alcuni programmi inse¬ 
riti, come Scopa a tre carte, nel servi¬ 
zio lettori esiste la possibilità di aver¬ 
lo direttamente su cassetta. Tra pa¬ 
rentesi, il prezzo di questo servizio 
che può apparire alto è giustificato 
dal fatto che non è organizzato su 
scala industriale, dato il numero limi¬ 
tato di richieste. Si tratta quindi di un 
servizio praticamente senza profitto 


P 

M. OSTA 


per noi, inteso solo come un supporto 
per il lettore. 

Tornando al problema proposto, con¬ 
fermiamo a lui e ad altri che hanno 
avuto difficoltà ( in altri punti de! pro¬ 
gramma), che Scopa a tre carte fun¬ 
ziona perfettamente ed è stato accu¬ 
ratamente testato da noi net corso di 
accanile partite. 

Tra l’altro l'istruzione 9200 è riporta¬ 
ta correttamente sul listato e funzio¬ 
na normalmente. 

Per tutti gli altri possiamo solo dare 
qualche consiglio: innanzitutto non 
confondete la cifra zero con la lettera 
O. 

Inoltre i simboli grafici che compaio¬ 
no ne! listato, e che in certe copie della 
rivista non sono molto leggibili, sono 
soprattutto i 4 di movimento deI cur¬ 
sore, i 2 di abilitazione e disabilitazio¬ 
ne del modo Reverse, e un paio per il 
disegno delle carte. Questo significa 
che eventuali errori di interpretazione 
di questi simboli non hanno effetto sul 
buon funzionamento de! gioco, ma so¬ 
lo sulla sua rappresentazione su vi¬ 
deo. 

Infine consigliamo, se possibile, di 
far controllare il listato non funzio¬ 
nante da una persona che non lo ha 
digitato. 


Musica, maestro! 

La presente routine è utile per am¬ 
pliare le scarse possibilità sonore del 
sistema Sinclair. 

Gli effetti ottenibili sono diversi a 
seconda dei parametri che si inseri¬ 
scono all’interno del programma 
stesso; questi valori agiscono duran¬ 
te il richiamo della routine residente 
in ROM (indirizzo 949) per la ge¬ 
stione del canale sonoro. 

Infatti la routine di ROM lavora at¬ 
traverso due registri da 16 bit: HL e 


DE. 

Prima del richiamo della 949 in DE 
devono essere contenute le frequen¬ 
ze e le durate del suono che si vuole 
ottenere; in HL deve esserci un valo¬ 
re che indichi il “Time Looping” ov¬ 
vero la distanza in tempo tra una 
nota e l’altra. Per eventuali informa¬ 
zioni consultare il libro “Spectrum 
ROM Disassembler” di Ian Logan e 
Frank O’Hara. 

Dunque la lunghezza totale del suo¬ 
no è determinata dal contenuto del 
registro H che, per convenienza, non 
deve essere maggiore di 25. 

Un primo esempio di programma 
è il seguente. Esso fa uso di un indi¬ 
rizzo immediato su H con il valore 1 
(soltanto come esempio). 

Nel registro E metto 0 poiché la du¬ 
rata del suono è già inserita in H. 


LD 

H,1 

38,1 

LD 

L,0 

46,0 

LD 

DE.8 

17,8,0 

PUSH 

HL 

229 

PUSH 

DE 

213 

CALL 

949 

205,181,3 

POP 

DE 

209 

POP 

HL 

225 

XOR 

A 

175 

SBC 

HL,DE 

237,82 

JR 

NC,cic 

48,224 

RET 


201 


Anziché usare un indirizzamento 
immediato su H, può essere utile u- 
sufruire di uno spazio di memoria 
come area parametri. 

In questi casi l’indirizzamento consi¬ 
gliato è quello indicizzato. 
Supponendo di avere un’area para¬ 
metri dall’indirizzo 32000 al 32010 e 
di voler inserire in H il valore dell’in¬ 
dirizzo 32005 dovrò procedere in 
questo modo: 
al posto dell’istruzione 

LD H,1 


7 







I HHB 



Po 


OSTA 


userò 

LD IX,32000 221,21,0,125 

LD H,(IX + 5) 221,102,5 

Ovviamente il displacement (in que¬ 
sto caso 5) va inserito con una op¬ 
portuna Poke prima di chiamare il 
programma, 

La mia prima speranza è quella di 
essere stato capito da tutti; la secon¬ 
da è quella di essere stato di aiuto a 
coloro che vorrebbero ottenere suo¬ 
ni migliori, ma sono costretti a ri¬ 
nunciare per la limitatezza delle so¬ 
norità ottenibili in BASIC. 

Emanuele Neri 
Torino 

Ecco uno dei primi frutti degli ap¬ 
pelli da noi lanciati nei numeri scorsi. 
Emanuele Neri, che ringraziamo a 
nome di tutti, ci ha inviato questa sua 
routine che sarà sicuramente apprez¬ 
zata da ipianti ritengono troppo limi¬ 
tate le capacità sonore dello Spec- 
tram. 

Per motivi di spazio siamo stati co¬ 


stretti a pubblicare solo il disassem¬ 
blato della routine: invitiamo chi fos¬ 
se interessato ad utilizzarla, a consul¬ 
tare in precedenti numeri della rivista 
la rubrica I segreti dei personal. In 
più occasioni, infatti, Marcello Spero 
ha presentato semplici caricatori BA¬ 
SIC di routine in linguaggio macchi¬ 
na. 


Salviamo i programmi 

Mi chiamo Pasquale, ho 15 anni e 
posseggo da poco più di un anno un 
Commodore 64 di cui sono fiero. 
Questa è la prima volta che scrivo ad 
una rivista e colgo l’occasione per 
farvi una domanda. So che, se una 
volta caricato un programma esce 
“Load Error”, bisogna inserire alcu¬ 
ni valori nelle locazioni di memoria, 
cioè: 

POKE 45,PEEK(831 ): POKE 47, 
PEEK(831) 

POKE 49,PEEK(831 ) 


poi si ripete l’operazione cambiando 
i Poke 45, 47, 49 in 46. 48, 50 ed i 
Peek 831 in 832. 

Spesso però non succede niente. 
Vorrei sapere se questo è l’unico mo¬ 
do per salvare un programma dal 
Load Error, o se c’è un altro sistema. 

Pasquale Esposito 
Napoli 

Caro Pasquale, la procedura che tu 
hai scritto è corretta ed è anche l'uni¬ 
ca possibile per rimediare al fatidico 
Load Error. 

Il problema è che non tutti i Load 
Error possono essere eliminati con 
queste due istruzioni. Infatti le due 
Poke aggiornano i puntatori in pagi¬ 
na zero che indicano la lunghezza del 
programma. Succede, a volte, che i 
programmi vengano caricati corret¬ 
tamente da cassetta, ma il calcolatore 
non sistemi i puntatori. Questo incon¬ 
veniente è facilmente riscontrabile in 
quanto, in questo caso, nonostante il 
Load Error il programma anche se 
non funzionante è normalmente lista¬ 
bile. 
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Accessori e opzioni per Sinclair 
e Commodore 

L’ATW studio di Milano importa 
dall'Inghilterra una serie di comple¬ 
menti elettronici per i più diffusi ho- 
me computer, permettendo di otte¬ 
nere, in tempi brevi, prodotti non 
ancora distribuiti in Italia da altri 
canali, aiutando cosi l’appassionato 
a superare i problemi collegati al 
mettersi direttamente in contatto 
con i produttori esteri di accessori ed 
estensioni per i piccoli sistemi. Nel 
caso dei prodotti della Zero Electro¬ 
nics, importati in esclusiva per il no¬ 
stro paese da questa neonata e dina¬ 
mica società, spicca la serie House 
Control che, già disponibile per il C 
64, è stata adattata anche per altri 
micro, e consente di controllare via 
elaboratore una serie di sensori, ser¬ 
vo motori, relè e prese di corrente. E’ 
possibile creare, con questi apparec¬ 
chi, una rete di dispositivi, controlla¬ 
bili a programma, per governare 
l’accensione di elettrodomestici a di¬ 
stanza, provocare certe azioni ad ore 
fisse o secondo il verificarsi di eventi 
segnalati dai rilevatori a raggi infra¬ 
rossi, spaventare i familiari metten¬ 
do improvvisamente in funzione a- 
spirapolvere, lavastoviglie, macina¬ 
caffè e via fantasticando. Altre pro¬ 
poste dell’ATW, che rappresenta in 
via non esclusiva un’ulteriore mezza 
dozzina di produttori d’oltremare, si 
rivolgono al mercato della memoria 
di massa con drive esterni (di fabbri¬ 
cazione Opus), per le macchine Sin¬ 
clair, nel tradizionale formato da 5 
pollici e 1/4 o nell’insolita “pezzatu¬ 
ra” da 3 pollici, e a quello delle co¬ 
municazioni, con modem specifici 
per le varie marche. Disponibili, per 
il C 64 e per lo Spectrum, due sistemi 
delle Prism che consentono di con¬ 


nettersi a reti esterne, quali Prestel o 
Micronet 800 per l’Inghilterra, e a 
tutti gli utenti che dispongano di un 
dispositivo capace di ricevere e tra¬ 
smettere a 1.200 baud per caricare 
software a distanza, comunicare, 
scambiarsi dati e programmi. Da ag¬ 
giungere il sintetizzatore vocale Big 
Ears (William Stuart) per il C 64, un 
monitor Prism appositamente con¬ 
cepito per le 85 colonne del QL, ed 
una serie di economici e divertentis¬ 
simi mini-robot di fabbricazione 
giapponese, in grado di compiere 
poche ma ben studiate azioni auto¬ 
nome. 

ATWStudio S.n.c. 

Via dei Pestagalli, 7 
20138 Milano 
Tel. 02-502204 



Nata recentemente come consociata 
del gruppo Sirius, uno dei più impor¬ 
tanti raggruppamenti “indipenden¬ 
ti” nel campo della piccola informa¬ 
tica, la Sirius Synthesis è stata nomi¬ 
nata dalla Atari Corporation Italia 
distributrice nazionale della divisio¬ 
ne computer. Pezzo forte del catalo¬ 
go è l’800 XL, una macchina dal 
prezzo contenuto e dalla configura¬ 
zione “aperta”, come ogni home 
computer che si rispetti, che però 
non rinuncia a prestazioni ed opzio¬ 
ni tipiche dell’utilizzazione in ambi¬ 
to familiare. Ci riferiamo alla penna 
ottica, alla tavoletta grafica, ai pro¬ 
grammi per disegnare e scrivere, fare 
i conti di casa o archiviare dati e 
notizie, senza tralasciare i giochi: 
tutti prodotti marchiati Atari, facili 
da usare e da collegare. Il lettore di 



cassette con 4 tracce audio consente 
di registrare messaggi vocali favo¬ 
rendo l'interattività tipica dei pro¬ 
grammi educativi. BASIC, Logo e 
Assembler sono disponibili su car¬ 
tuccia e su dischetto. Per poter la¬ 
sciare traccia su carta del proprio 
lavoro, sono state previste due stam¬ 
panti: la Atari 1020 per testi e grafici . 
a 4 colori, e la Atari 1027 per applica¬ 
zioni in cui è richiesta la “qualità” 
tipica della corrispondenza commer¬ 
ciale. Oltre ai prodotti Atari la Sirius 
Synthesis distribuisce il personal 
Robot RBX5 e tutti gli accessori per 
esso disponibili. 


Sirius Synthesis 

Strada 1 - Palazzo F2 

20094 Milano Fiori - Assago (MI) 

Tel. 02-8243287 



La gamma di giochi elettronici Ma- 
stertronic presente sul mercato ita¬ 
liano, si arricchisce della nuova pro¬ 
duzione su disco. Sette dei più popo¬ 
lari titoli del catalogo sono stati pre¬ 
sentati nella nuova versione, caratte¬ 
rizzata, come quella su cassetta, dal 
prezzo contenuto: 19.000 lire, sup¬ 
porto compreso. Per il VIC 20 è stato 
realizzato Games Designer, uno 
strumento per creare giochi “perso- 
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nalizzati” anche senza l’esperienza 
di programmazione normalmente 
necessaria. L’elenco dei giochi si al¬ 
lunga con due proposte (Challenger 
e City Fighter) per Commodore 64 e 
tre (Chuckman, Wizards Warrior e 
Viper 111) per Spectrum 48 Kbyte. 
Viene cosi superata la soglia dei 50 
titoli, venduti complessivamente già 
in più di 50.000 copie, e tutti recente¬ 
mente dotati di carica veloce per es¬ 
sere letti in meno di tre minuti. 

Persona 

Via A. Mario, Il 
37121 Verona 
Tel. 045-592960 


Ancora dati via etere 


La Line di Firenze ha sviluppato 
un’interessante modalità di trasmis¬ 
sione radiofonica di dati e program¬ 
mi per home e personal computer. 
Anziché limitarsi a trasmettere una 
serie di strazianti gemiti corrispon¬ 
denti ai dati, la Line ha deciso di 
affiancare al canale audio di una 
normale trasmissione in Modulazio¬ 
ne di Frequenza, un canale specializ¬ 
zato. Senza interferire con le normali 
trasmissioni, un po' come avviene 
con il Televideo della RAI, dove i 
dati sono mascherati daH'informa- 
zione video, i programmi vengono 
trasmessi su un canale riservato. Oc¬ 
corre naturalmente un decodificato¬ 
re per “sciogliere” i due canali ed 
instradare verso un comune registra¬ 
tore i dati trasmessi. Con tutta calma 
sarà poi possibile trasferire su un 
altro supporto il meglio tra quanto si 
è ricevuto. L’apparato tecnico neces¬ 
sario per fruire delle trasmissioni 
Radiotext, comprende un decoder 
sviluppato dalla Line (reperibile in 
affitto presso i maggiori Hi-Fi e 
computer shop delle zone interessa¬ 
te), un comune registratore a casset¬ 
te, un sintonizzatore munito di usci¬ 
ta mulliplexer (facilmente ed econo¬ 


micamente installabile anche su ap¬ 
parecchi che non ne sono provvisti di 
serie), ed un microcomputer. Le pri¬ 
me applicazioni sono rivolte a Apple 
II. C 64. VIC 20, Spectrum e IBM 
PC. Il servizio viene diffuso appog¬ 
giandosi ad emittenti già esistenti: 
per Firenze e provincia, il partner 
della Line è Radio Fiesole. 

Line S.p.A. 

Via G. di Vittorio, IO 
50145 Firenze 
Tel. 055-352001 


Computer Club a Torino 

Lo Sprite Computer Club ci informa 
della sua rinnovata esistenza: nato 
come Commodore Computer Club 
per iniziativa di alcuni partecipanti 
ai corsi di BASIC del Centro Divul¬ 
gazione Scienza e Cultura, si è allar¬ 
gato strada facendo a tutti gli appas¬ 
sionati di microinformatica, a pre¬ 
scindere dalla marca prediletta. Sin- 
clairisti, commodoriani e tutti gli al¬ 
tri possono infatti collaborare a ri¬ 
cerche o esperienze comuni. Il lavo¬ 
ro dei gruppi si coagula intorno ad 
un bollettino (speciale informatica) 
che pubblica articoli di carattere cul¬ 
turale, programmi e notizÌ£tecniche 
per l'hardware più diffuso, notizie 
dall’estero e via discorrendo. Lo 
Sprite Computer Club mantiene 
contatti stabili con analoghe inizia¬ 
tive in atto alfestero ed in particola¬ 
re con Computer Club americani, 
raggiungendo cosi notizie ed antici¬ 
pazioni altrimenti difficili da cono¬ 
scere per tempo. Il Club mette a di¬ 
sposizione dei soci alcune apparec¬ 
chiature e una ricca biblioteca di 
programmi, nonché il laboratorio 
ricerche del CDSC. Giorno di riu¬ 
nione è il mercoledì, dalle 17.30 alle 
20 . 

Sprite Computer Club 
Via Vagitone, 3 
10100 Torino 
Tel. 011-95X5139/578017 


Quattro volte tanto 
per Apple II 

Il floppy disk controller ERPHI 
AFDC 2, mediante un circuito addi¬ 
zionale sulla scheda di controllo, 
consente di utilizzare con DOS 3.3 
Apple. CP/M 2.2 e Pascal 1.1, dischi 
da 5 o 3 pollici con una capacità più 
che quadrupla rispetto al formato 
standard della Apple. Questo con¬ 
troller, può risolvere i problemi di 
tutti quei possessori di sistemi Apple 
o compatibili, che hanno necessità di 
un po’ di memoria di massa in più e 
non vogliono aggiungere un disco 
rigido.' 

Durante l’inizializzazione del siste¬ 
ma, viene segnalato il tipo di tecnica 
utilizzata e viene quindi esteso il si¬ 
stema operativo in uso, mentre il di¬ 
sco di boot resta inalterato. La com¬ 
patibilità con il software esistente è 
garantita dalla "by-pass technique” 
che confina nell’EPROM del con¬ 
troller l’estensione disco necessaria. 
Il controller può’ associarsi ad 
un’ampia gamma di minifloppy da 
48 o 96 TPI e di microfloppy da 3.5 
pollici, configurabili mediante una 
serie di switch. L’ERPHI AFDC 2, 
completo di manuale per l’utente e di 
un drive per floppy da 5 1/4 96 TPI 
(per 680 Kbyte reali) costa 750.000 
lire più IVA. 

Il Bittegone di Felice Paglioni 
Via U. Comandini, 49 
00173 Roma 
Tei 06-6133060 


Segreteria telefonica 
elettronica per C 64 

Realizzando il sogno di molti indaf¬ 
farati alle prese con la tirannia del 
telefono, la Como Computers ha 
messo a punto un congegno che per¬ 
mette di gestire “integralmente” la 
propria corrispondenza telefonica 
facendo uso del Commodore 64. 
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Questo sistema, completo di har¬ 
dware e software, realizza la gestione 
ordinaria degli indirizzi e dei recapiti 
(inserimento, variazione, annulla¬ 
mento. indicazioni specifiche) c di¬ 
spone di un combinatore, in pratica 
una banale spina, che consente di 
collegare il C 64 alla rete telefonica. 
Nel momento fatale della telefonata, 
occorre richiedere al sistema il nomi¬ 
nativo, che verrà ricercato nell’ar¬ 
chivio. Il numero corrispondente (e- 
stensioni interne e prefissi compresi) 
verrà automaticamente composto 
ed il programma si metterà in attesa 
nel caso di occupato, ripetendo la 
chiamata dopo un certo periodo. 
Durante la telefonata, sullo schermo 
vengono mostrate la data, l’ora e la 
durata della conversazione. E' previ¬ 
sta la possibilità di ripristinare gli 
archivi, onde evitare la perdita delle 
informazioni registrate, che possono 
coprire un massimo di 700 utenze. 
La semplicità del programma facili¬ 
ta il trasferimento dei dati contenuti 
nella solita agendina zeppa di dati 
spesso obsoleti e quindi inservibili, 
alla nuova segreteria elettronica, più 
flessibile e rapida anche se purtrop¬ 
po inutilizzabile quando occorre 
chiamare da un posto pubblico... 

Como Computers 
Via Natta, 41 
0 Conio 

Tel. 031-278876 


Luiiiena: un’esplosione di colori 
sul computer 

La Sirio Informatica di Milano di¬ 
stribuisce in tutta Italia Lumena, 
software grafico particolarmente so¬ 
fisticato, creato per quelle attività 
che richiedono l’utilizzazione di im¬ 
magini di elevata qualità. Pubblici- 
tari, creativi, ed in generale laddove 
esiste il problema di comunicare at¬ 
traverso la grafica, stilisti operanti in 
diversi settori, designers di tessuti 
sono le categorie maggiormente in¬ 



teressate a questo nuovo prodotto. 
Lumena consente di creare disegni, 
di manipolarli e di trasformarli, av¬ 
valendosi di una gamma cromatica 
pressoché illimitata; basti pensare al 
fatto di poter attingere ad una tavo¬ 
lozza di 16 milioni di colori ed alla 
possibilità di visualizzarne 256 con¬ 
temporaneamente, per intuire quali 
combinazioni, sovrapposizioni, sfu¬ 
mature sono ottenibili e quanto 
maggior spazio viene concesso alla 
creatività di chi opera. Il disegno 
può essere movimentato: la produ¬ 
zione di più immagini e la loro appa¬ 
rizione secondo la sequenza deside¬ 
rata dà luogo infatti ad effetti di ani¬ 
mazione, assai utili per vivacizzare 
grafici e presentazioni di vario tipo. 
La realizzazione dei disegni avviene 
attraverso l’uso di una tavoletta gra¬ 
fica, ma è già prevista la facoltà di 
memorizzare e rielaborare le imma¬ 
gini riprese da una telecamera e tra¬ 
sferite direttamente al computer, op¬ 
pure generate da computer collegati. 


abbinandole, se necessario, a disegni 
a mano libera o a testi. 

In fase di output, il disegno può esse¬ 
re ottenuto su stampante, registrato 
su nastro tramite un videoregistrato¬ 
re collegato allo stesso computer, ri¬ 
prodotto su monitor RGB o diretta¬ 
mente su diapositive. 

Lumena fornisce al proprio utente 
un’enorme scelta nei caratteri grafici 
e nella densità dei tratti ottenibili in 
stampa; ciò porta ad allargare le ap¬ 
plicazioni anche all’area della comu¬ 
nicazione scritta, dalla produzione 
di titoli alla stesura di testi partico¬ 
larmente accurati. 

L'operatore, inoltre, ha a sua dispo¬ 
sizione spiegazioni dettagliate su co¬ 
me servirsi di ciascun comando: una 
facilitazione sicuramente importan¬ 
te al fine di orientarsi nella scelta e 
nell’uso delle diverse opzioni. 
Lumena è stato ideato per essere in 
grado di funzionare su tutti i sistemi 
attualmente più venduti, quali IBM, 
Sony e M indset: la risoluzione grafi¬ 
ca su tali computer è di circa 320 x 
200. Qualora siano richieste perfor- 
mances decisamente professionali, e 
quindi necessiti un’alta qualità di 
immagine, sono l'IBM PC ed i com¬ 
puter con esso compatibili ad offrire 
una risoluzione di 512 x 512. 

Sirio Informatica S.r.l. 

V.le Certosa, 148 
20156 Milano 
Tel. 02-3010051 
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ext-Editor 


per TI99/4A 


Formattiamo i nostri testi 
con il T199 


di Sergio Borsoni 


uso del personal come 
elaboratore di testi è 
ormai così diffuso che è 
diventata una tendenza comune, so¬ 
prattutto nel campo dei portatili, 
corredare il computer di un Text- 
Editor residente su ROM, eventual¬ 
mente accompagnato da altri pro¬ 
grammi di data base, wailing lisi e 
grafica commerciale. 

Il T199/4A dispone, a tale proposito, 
del modulo SSS Writer TI, forse dif¬ 
ficilmente reperibile in commercio al 
giorno d'oggi. Il programma com¬ 
prende molte funzioni avanzate le 
quali tuttavia non compensano, a 
nostro avviso, la necessità di dover 
leggere il testo di 80 colonne attra¬ 
verso finestre contigue ed in parte 
sovrapposte di 40 caratteri ciascuna. 
Come giustamente è scritto in 
Things lo do with yonr T/99/4 A com¬ 
puter , J. Willis, M. Miller & D. La- 
Mont Johnson. New American Li¬ 
brary, dopo aver usato il Writer TI 
vi sembrerà di aver assistito ad una 
partita di tennis da bordo campo! 

Molti usano l'Editor/Assembler 
come word-processor, ma è chiaro 
che oltre a non eliminare il problema 
delle finestre, esso comporta la per¬ 
dita di molte importanti funzioni co¬ 
me l'inserimento di una parola con il 
riaggiustamento dell’intero capo¬ 
verso. In altre parole un inserimento 
è possibile solo nell’ambito di una 
linea di testo e comporta la perdita 
della parte finale della linea stessa. 
Inoltre con l’opzione Print dell’Edi- 
tor/ Assembler non è possibile con¬ 
trollare il formato della stampa. 


Dopo questa premessa non sembre¬ 
rà più tanto infondata la proposta di 
un nuovo word-processor per il 
TI 99/4 A. 

Scritto in Extended BASIC, il 
programma si attiene alle seguenti 
caratteristiche di base: normale out¬ 
put su video con 28 caratteri per 
riga, con la possibilità di usare un 
nuovo set di caratteri stile IBM, con 
un vero corsivo; testo in forma di 
capoversi; controllo del formato di 
stampa tramite codici inseriti tra un 
capoverso e l'altro; giustificazione 
del margine destro di stampa con 
suddivisione in sillabe per il ritorno 
a capo riga (!); mantenimento di tut¬ 
te le principali funzioni dell'Editor/ 
Assembler, quali Delete, Move, 
Copy, Insert. che permettono 
la cancellazione e lo spostamento di 
grossi blocchi di testo compreso il 
merge e la fusione di due testi diver¬ 
si. 

Il programma occupa circa 12 Kby- 
te di memoria e necessita del sistema 
a dischi, l’espansione di memoria e 
la stampante. Esso permette di gesti¬ 
re un testo fino ad un massimo di 
300 righe per 28 caratteri, corrispon¬ 
dente a 15 videate. 

La carta di identità di questo text- 
editor è abbastanza eloquente e per¬ 
mette di collocarlo su un piano di 
competitività, se non di superiorità, 
rispetto ad altri programmi analo¬ 
ghi quali Direct Writer il della Dy- 
namic Data & Devices, Word-Pro¬ 
cessing della Futura Software Ine. o 
Textiger, tutti reperibili negli U.S.A. 
Il programma è diviso in due bloc¬ 
chi; il primo, denominato DSKI. 
Textnewset, contiene la definizione 
del nuovo set di caratteri; il secondo 
DSKI. Texteditor, è il programma 
vero e proprio. Il primo si allaccia 
automaticamente al secondo, il qua¬ 
le può anche essere eseguito in modo 
autonomo, nel qual caso però si di¬ 
spone solo del normale set di carat¬ 



teri. 

Il menu fornisce 6 opzioni, nell'ordi¬ 
ne: Load. Edit, Save, Print, Purge e 
Files. Con Load si carica in memo¬ 
ria un file precedentemente registra¬ 
to. Edit permette di creare un testo o 
editare quello presente in memoria. 
Parleremo più avanti di tutte le fun¬ 
zioni di editing. Save memorizza il 
testo presente in memoria nel for¬ 
mato Sequential, Display, Variable 
80. Ogni record contiene due righe 
di testo di 28 caratteri ed il file cosi 
ottenuto può essere caricato anche 
con l’Editor Assembler. Sia per il 
comando Load che per il Save, va 
specificato il nome del file secondo le 
norme consuete; ad esempio è valido 
il nome DSKl.Myfile. Il comando 
Print permette la stampa del testo 
attualmente in memoria. E' necessa¬ 
rio specificare il nome del dispositi¬ 
vo, ad esempio RS-232, e successiva¬ 
mente il margine sinistro di stampa e 
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la larghezza del testo. I valori di de¬ 
fault sono 10 e 60, nel qual modo 
vengono lasciate 10 colonne di mar¬ 
gine a destra e a sinistra del foglio. 
Ulteriori codici di controllo della 
stampa possono venir inseriti nel te¬ 
sto cosi da ottenere la stampa in¬ 
grandita, condensata, enfatizzata, 
doppia ed inoltre il salto riga o l’a¬ 
vanzamento del modulo, ecc. Il co¬ 
mando Purge annulla compieta- 
mente il testo in memoria, dopo la 
conferma da parte dell’utente. Infi¬ 
ne, con Files si ottiene la lista dei file 
Dis/Var 80 con la possibilità di can¬ 
cellarli, uno alla volta, dalla directo- 
ry. 

Veniamo ora all’editing. Selezio¬ 
nato il comando Edit, si passa allo 
schermo contenente il testo. Questo 
occupa le 20 righe centrali. Le prime 
due righe, nello schermo 1, conten¬ 
gono il nome del file, o la scritta 
Newfile se si inizia un nuovo testo; 


negli schermi successivi, nella stessa 
posizione, vengono mostrate le ulti¬ 
me due righe della videata preceden¬ 
te, in modo da consentire continuità 
nella scrittura. Le ultime due righe 
in basso sono riservate alle funzioni 
Delete, Move, Copy, ecc. 

Durante la scrittura si hanno a di¬ 
sposizione due cursori, uno “vuoto” 
ed uno “pieno” lampeggiante, corri¬ 
spondenti a due diversi modi di edi¬ 
ting. Si passa da un modo all’altro 
semplicemente premendo il tasto 
Enter. Il cursore lampeggiante indi¬ 
ca che ci si trova nell’editing di linea; 
si può scrivere, spostare il cursore a 
destra e a sinistra, inserire e cancella¬ 
re caratteri, ma solo nell’ambito di 
una riga. Premendo Enter compare 
il cursore vuoto a capo riga ed in 
questo modo si ha a disposizione un 
editing di schermo, potendo sposta¬ 
re il cursore in ogni parte del video, 
cancellare o inserire righe, inserire o 
cancellare caratteri con il riaggiusta¬ 
mento dell’intero capoverso, acce¬ 
dere alle funzioni Move, Copy, In- 
sert, ecc. 

Durante la scrittura è necessario 
premere il tasto Enter al termine di 
ogni riga. Se si desidera usufruire 
delle funzioni generali di editing ba¬ 
sta un leggero tocco e si ottiene il 
cursore vuoto a capo riga, se invece 
si desidera continuare la scrittura 
basta mantenere la pressione sul ta¬ 
sto Enter e si ottiene il cursore “pie¬ 
no” lampeggiante, sempre a capo ri¬ 
ga. Per scrivere bisogna sempre esse¬ 
re in presenza del cursore lampeg¬ 
giante. 

Anche se si deve premere Enter al 
termine di ogni riga, ogni capoverso 
o l’intero testo, sono virtualmente 
considerati dal programma come 
un’unica lunga riga. Pertanto, quan¬ 
do si va a capo non si devono rispet¬ 
tare le comuni regole grammaticali 
per la suddivisione in sillabe, né usa¬ 
re i trattini di unione. Ad esempio, se 


si sta scrivendo la parola computer e 
si termina la riga con “comp”, si 
continuerà a capo con il seguito “u- 
ter”. Analogamente, terminando li¬ 
na riga con una parola completa, si 
porrà uno spazio all’inizio della riga 
successiva, esattamente come se si 
proseguisse sulla stessa riga. Ci pen¬ 
serà poi il programma a formattare 
il testo nel modo specificato dall’u¬ 
tente. 

Il testo può essere suddiviso in capo¬ 
versi di lunghezza variabile. Al limi¬ 
te tutto il testo può essere costituito 
da un unico capoverso, ma in tal 
caso l’esecuzione di alcune funzioni 
risulterebbe più lenta. I capoversi 
devono venir separati da una riga 
vuota con una barra obliqua inversa 
nella prima colonna (\ = Fctn z). 

Dopo aver ripetuto con il cursore 
nero lampeggiante si dispone delle 
funzioni di editing di linea, cioè De¬ 
lete Char, Insert Char, Erase, e dei 
comandi di controllo cursore a de¬ 
stra e a sinistra, ma solo nell’ambito 
di una riga, vediamo le funzioni ge¬ 
nerali di editing. 

A queste si accede in presenza del 
cursore vuoto, il quale compare pre¬ 
mendo il tasto Enter. Sono abilitati i 
seguenti tasti di funzione: Delete 
Char = Fctn 1; Insert Char = Fctn 2; 
Delete Line = Fctn 3; Next 
Screen = Fctn 5; Roll Down = Fctn 
6; Aid = Fctn 7; Insert Line = Fctn 8 
ed Escape = Fctn 9. Attenzione per¬ 
chè, mentre è disabilitato il coman¬ 
do Break, tranne che in presenza del 
menu, è sempre attivo il comando 
Quit = Fctn + che corrisponde ad 
un Reset di sistema. 

Il significato delle funzioni è eviden¬ 
te, tuttavia è opportuno fare qualche 
precisazione. Del Char e Ins Char 
hanno valore per l’intero capoverso. 
Delete Line cancella la riga dove è 
posto il cursore e riaggiusta il testo. 
Next Screen, mancando le finestre di 
testo laterali, ha lo stesso significato 
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Listato 1. // nuovo insieme di cara iteri. 

100 REM NUOVO SET 
110 REM DI CARATTERI 
120 REM #■***■#•***###*■*■*** 

130 CALL CLEAR :: CALI. CHAR ( 33, "00181B18 
10180018"):: CALL CHAR(34,"006C6C6C"): : 
CALL CHAR(37,"0073566C1B366ACE") 

I40 (@P- 

150 CALL CHAR <40,"0008103030301008"): : C 
AL.!.. CHAR (41, "OOlÒOBOCOCOCOBlO” ) : : CALL C 
HAR <43,"000018187E7E1818") 

155 CALL CHAR(45,"000000007E7E0000"): : C 
ALL CHAR(38,"0020505020D6CC76") 

160 CALL CHAR(47,"0002060C18306040"): : C 
ALL CHAR(48,"003C66666E76663C"): : CALL C 
HAR(49,"001838181818183C") 

170 CALL CHAR(50,"003C66060C18307E"): : C 
ALL CHAR(51,"003C66060C06663C"): : CALL C 
HAR(52,"OOOC1C2C4C7E0C0C") 

180 CALL CHAR(53,"007E607C0606663C"): : C 
ALL CHAR <54,"003C60607C66663C"): : CALL C 
HAR(55,"007E460C18306060"> 

190 CALL CHAR(56,"003C66663C66663C"): : C 
ALL CHAR(57,"003C66663E06663C"): : CALL C 
HAR < 60,"OOOC18306030180C") 

200 CALL CHAR(62,"0030180C060C1830"): : C 
ALL CHAR(63,"003C66660C180018"):: CALL C 
HAR(65,"00183C66667E6666") 

210 CALL CHAR(66,"00FC66667C6666FC"): : C 
ALL CHAR(67,"003C66606060663C"): : CALL C 
HAR<68,"00FC6666666666FC") 

220 CALL CHAR(69,"00FE6260786062FE"): : C 
ALL CHAR(70,"00FE6260786060F0"): : CALL C 
HAR(71,"003C66606E66663C") 

230 CALL CHAR<72,"006666667E666666"): : C 
ALL CHAR(73,"003C18181818183C"): : CALL C 
HAR(74,"003C181818185830") 

240 CALL CHAR (75, "0062666C78786C66" ) : : C 
ALL CHAR(76,"OOF06060606062FE"): : CALL C 
HAR(77,"00C6EEFED6C6C6C6") 

250 CALL CHAR(78,"00C6E6F6DECEC6C6") : : C 
ALL CHAR(79,"003C66666666663C"): : CALL C 


del comando Roll Up dell’Editor/ 
Assembler, cioè fa vedere lo scher¬ 
mo successivo. Roll Down, invece, 
riporta allo schermo precedente. 
Aid permette di ottenere la numera¬ 
zione delle righe ed il numero dello 
schermo attuale. Inserì Line inseri¬ 
sce una linea vuota in corrisponden¬ 
za del cursore che può essere sposta¬ 
to in ogni posizione del video usan¬ 
do i tasti con le frecce. Infine, Escapc 
mette a disposizione ulteriori co¬ 
mandi generali di editing che ap¬ 
paiono indicati nelle righe inferiori 
del video. Essi sono nell'ordine: E- 
dit, Move, Copy, Delete, Insert ed 
ancora Escape, tutte richiamabili 


HAR<80,"00FC6666667C60F0") 

260 CALL CHAR(81,"003C6666666A643A"): : C 
ALL CHAR<32,"00FC66667C6666F3">: : CALL C 
HAR(83,"003C66603C06663C") 

270 CALL CHAR(84,"007E5A181818183C"): : C 
ALL CHAR(85,"006666666666663C"): : CALL C 
HAR(86,"00666666243C1818") 

280 CALL CHAR <87,"00C6D6D6D6D67C2B"): : C 
ALL CHAR(88,"0066663C1B3C6666"): : CALL C 
HAR(89,"0066663C18181818") 

290 CALL CHAR(90,"007E460C1830627E"): : C 
ALL CHAR(91,"003C30303030303C") : : CALL C 
HAR < 93,"003C0C0C0C0C0C3C") 

300 CALL CHAR(97,"000000380C7CCC76"): : C 
ALL CHAR(98,"0060607C6666667C"): : CALL C 
HAR(99,"0000003C6660663C") 

310 CALL CHAR(100,"0006063E6666663E"): : 
CALL CHAR(101,"0000003C667E603C”): : CALL 
CHAR(102,"001C303078303030"> 

320 CALL CHAR (103, "0000003A663E463C." > : : 
CALL. CHAR (104, "0060607C66666666" ) : : CALL 
CHAR(105,"001800381818183C") 

330 CALL CHAR<106,"0018003818185830”): : 
CALL CHAR(107,"006060666C786C66"): : CALL 
CHAR(108,"003818181818183C") 

340 CALL CHAR(109,"OOOOOOECB6B6B6B6"): : 
CALL CHAR(110,"0000005C66666666"): : CALL 
CHAR(111,"0000003C6666663C") 

350 CALL CHAR(112,"0000007C66667C60"): : 
CALL CHAR(113,"0000003E66663E06"): : CALL 
CHAR(114,"0000006E76606060") 

360 CALL CHAR(115,"0000003C603C067C"): : 
CALL CHAR(116,"0030307C3030301C"): : CALL 
CHAR(117,"000000666666663C") 

370 CALL CHAR <118,"0000006666663C18">: : 
CALL CHAR(119,"000000C6D6D67C28"): : CALL 
CHAR <120,"000000663C183C66") 

380 CALL CHAR(121,"000000663C185830"): : 
CALL CHAR(122,"0000007E4C18327E">: : CALL 
CHAR(123,"001C30306030301C") 

390 CALL CHAR(125,"00380C0C060C0C38"): : 
CALL CHAR(128,"FF81818181B181FF") 

400 RUN "DSK1.TEXTEDITOR" 


Move, con la differenza che la parte 
di testo indicata non viene rimossa, 
ma solo copiata. 

Delete permette la cancellazione di 
un blocco di testo specificando la 
prima e l’ultima riga della parte da 
cancellare. 

Inserì consente la fusione di due file, 
ovvero di quello attualmente in me¬ 
moria con un altro memorizzato in 
precedenza su disco. E’ necessario 
specificare il nome del file del quale 
si richiede il merginged il numero di 
riga dopo il quale dev’essere inseri¬ 
to. Con questo comando è possibile, 
ad esempio, richiamare l'intestazio¬ 
ne di una lettera o un indirizzo tratto 


con la sola lettera iniziale tranne E- 
scape ottenibile nel solito modo con 
Fctn 9. 

Edit permette di tornare nel modo 
edit. 

Move consente di rimaneggiare il te¬ 
sto spostando un certo numero di 
righe in un’altra posizione. Dopo a- 
ver osservato i numeri di riga con il 
tasto Aid, si devono indicare i nume¬ 
ri della prima e dell’ultima linea del 
segmento da-spostare ed il numero 
di riga oltre la quale va posto, tutti 
separati da virgole. (Move) 10,15,35 
sposta la parte di testo dalla riga 10 
alla 15 dopo la linea 35. 

Copy svolge una funzione simile a 
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Listato 2. Il programma Text-Editor. 

100 REM TEXT EDITOR 28/C 

110 REM - 

120 REM by Sergio Borsani. 

130 ON BREAK NEXT ss ON MARNINO NEXT 
140 DIM RIGA*(300):: NUMRIGHE=1 :: F*=" 
*** (EOF) *** " :: RIGA*<1) 

=F* :: FINA$="NEW" 

ISO CAL.L CUEAR ss CALL SCREEN(13):s FOR 
3*1 TO 12 :: CALL COLOR<J,16,13): : NEXT 
J :: CALL COLOR<14,16,1) 

160 CALL CHAR<128,"FF813181818181FF"): : 
CALL CHAR<12?,"FF"): : CALL CHAR<130,"000 
OOOOOOOOOOOFF") 

170 CALL CHAR(131,RPT*("01",8)): : CALL C 
HAR(132,RPT*("80",8)>8s CALL CHAR(136,"3 
C4299A1A199423C")s s BOTO 250 
ISO CALL HCHAR :: CALL VCHAR :: SC*. : : N 

s s RECORD* : : X : : SCHERMO : : FINE : : C 

ALL SPRITE :: RI :: CO 

190 R* :: NU :: CALL KEY : : K : : S : : CA 
LL DELSPRITE :: CALL LOCATE ss Z* :: KK 
s: W* ss FI : : T 

200 RI ss R2 ss R3 :s BLOCCO ss CTR ss Q 

88 PX ss FNW* ss FINA* ss MS s: LF ss U 

R ss PNT ss RIO* ss DEV* 

210 PX1 ss PX2 ss RIBAO* ss LRO ss ST* s 
; STS ss LI* ss L2* ss L3* ss L4* 

220 CALL VOCALE ss CALL. MARO INE ss V ss 
DIFF : s COD ss LOOP s s FN* s s W 
230 FLAG s s DN* ss Y ss PY 
240 !@P- 

250 CALL CLEAR ss DISPLAY AT(2,4)s"T E X 
r E D I T 0 R" ss DISPLAY AT(4,2)s"c 
copyright " ; CHR* ( 136) ; " 1984, S. Borsani" 
260 CALL HCHAR(1,3,129,28)ss CALL HCHAR( 
5,3,130,28)s: CALL VCHAR(1,2,131,5)ss CA 
L.L. VCHAR (1,31,132,5) 

270 DISPLAY AT(8,4)s"l LOAD" ss DISPLAY 
AT(10,4):"2 EDIT" ss DISPLAY AT(12,4): 
"3 SAVE" 

280 DISPLAY AT(Ì4,4):"4 PRINT" ss DISPL 
AY AT(16,4):"5 FURBE" 

290 DISPLAY AT<18,4):"6 FILES" ss DISPL 
AY AT(20,10):"scelta?" 

300 CALL VCHAR(7,4,32,12): : ON BREAK STO 
P :: ACCEPT AT(20,18)SIZE(1)VALIDATE("12 
3456"):SC* 

310 ON ERROR 2490 : : ON BREAK NEXT : : N= 
VAL(SC*): : CALL HCHAR(6+2*N,4,62)s: ON N 
BOTO 320,390,1270,1310,2020,2040 
320 G05UB 2200 : : ON ERROR 2220 
330 NUMRIGHE=1 ss OPEN 41: FINA*,SEGUENTI 
AL,INPUT ,DISPLAY ,VARIABLE 80 
340 IF EOF <1)THEN 380 

350 LINPUT #1:RECORD* ss X=POS(RECORD*,F 
*,1> 

360 FOR 3=0 TO 1 : : RIGA*(NUMRIGHE)=SEG* 
(RECORD*,28*0+1,28)ss IF X=28*J+1 THEN 3 
80 

370 NUMRIGHE=NUMRIGHE+1 ss NEXT J ss GOT 
O 340 

380 CLOSE #1 ss GOSIJB 2390 ss BOTO 300 


390 CALL CLEAR ss SCHERMO*1 ss IF NUMRIB 
HE>20 THEN FINE=20 ELSE FINE=NUMRIGHE 
400 GOSUB 2410 ss FOR J=1 TO FINE ss DIS 
PLAY AT(3+2,1)sRIGA*<J)ss NEXT 3 
410 CALL SPRITE(#1,128,2,17,17) 

420 RI-3 ss C0=1 ss GOTO 480 
430 GOSUB 2250 ss ACCEPT AT(RI,CO)SIZE(- 
(29—CO) ) : R* ss R*=R*8tRPT* ( " ", 29-CO-LEN ( 
R*: ) 

440 IF C0=1 t'HEN RIBA*(NU)=R* ELSE RIGA* 
(NU)=5EG*(RIGA*(NU),1,C0-1)&R* 

450 C0=1 ss IF RI<22 THEN RI=RI+1 ss GOT 
0 470 

460 RI=3 ss SCHERMG=SCHERM0+1 ss CALL CL 
EAR ss GOSUB 2330 ss GOSUB 2320 ss IF NU 
=NUMRIGHE THEN DISPLAY AT(3,1):F* 

470 CALL SPRITE(#1,128,2,(RI-1>*8+1,17) 
480 CALL KEY(5,K,S): : IF S=0 THEN 480 
490 IF K=13 THEN CALL DELSPRITE(41): : BQ 
TO 430 

500 IF K=1 THEN 630 

510 IF K=3 THEN GOSUB 2320 ss Y=CO ss GO 
TO 790 

520 IF K=4 THEN 720 

530 IF K=6 THEN 780 

540 IF K=7 THEN 690 

550 IF K=8 AND C0>1 THEN C0=C0-1 ss GOTO 

620 

560 IF K=9 AND C0<28 THEN C0=C0+1 ss GOT 
0 620 

570 IF K=10 AND RI<22 THEN RI=RI+1 ss GO 
SUB 2250 s: GOTO 620 

580 IF K=11 AND RI>3 THEN RI=RI-1 ss GOT 
0 620 

590 IF K=12. AND SCHERMO>1 THEN 820 

600 IF K=14 THEN 830 

610 IF K=15 THEN 840 ELSE 480 

620 CALL LOCATECI, <RI-1)*8+1, (CQ+1)*B+1 

) s: GOTO 480 

630 FOR 3=3 TO 11 ss CALL HCHAR(3,2,46+3 
): : NEXT J 

640 FOR J=13 TO 21 ss CALL HCHAR(3,2,36+ 
J):s NEXT J 

650 Z**"SCHERMO "&STR* (SCHERMO) &" RIGHE 
"&STR* ( (SCHERMO-1 ) *20+1 > &"~"8<STR* (SCHER 
M0*20) 

660 DISPLAY AT(24,l)sZ* 

670 CALL KEY(0,KK,S)s: IF S=0 THEN 670 
680 CALL VCHAR(3,2,32,20): : CALL HCHAR(2 
4,3,32,28):: GOTO 480 

690 GOSUB 2320 ss IF NU=NUMRIGHE OR NUMR 
IGHE=1 THEN 480 

700 FOR J=NU TO NUMRIGHE-1 ss RIGA*C3)=R 
IGA*(J+l): : NEXT 3 ss NUMRIGHE=NUMRIGHE- 
1 : : GOSUB 2330 

710 CALL HCHAR(3,3,32,28): : GOTO 480 
720 GOSUB 2320 ss W*=SEG* (RIGA* (NIJ) , 28, 1 
):: IF C0=1 THEN RIGA*(NU)=CHR*(32)&SEG* 
(RIGA*(NU),1,27): : GOTO 740 
730 RIGA*(NU)=SEG*(RIGA*(NU),1,CO-1>&CHR 
* ( 32 ) ?/SEG* ( RIGA* ( NU ) , CD, 28- CO ) 

740 NU=NU+1 ss IF NU=NLÌMRISHE OR SEG*(RI 
GA*(NIJ> , 1, 1)«="\" THEN 750 ELSE 770 
750 IF W*< >CHR*(32)THEN GOSUB 2370 ss RI 
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Seguilo listato 2. 

GA*(NU)=W*&RPT*(" ", 27 ) 

760 GOSUB 2330 : : GOTO 480 

770 2*=SEG*(RIGA*(NU),2B,1): : RIGA*(NU>= 

W*&SEG* (RIGA* (NU) ,1,27):: W*=Z* :: GOTO 

740 

780 GOSUB 2320 : : GOSUB 2370 : : GOSUB 23 
30 : : BOTO 4B0 

790 IF NU+l-NUMRIBHE OR SEG*(RIGA*(NU+1) 
,1,1. THEN W*=CHR* (32) : : F.l = l ELSE W 

*=SEB*(RIGA*(NU+1),1,1) 

800 IF Y=1 THEN RIGA*(NU)=SEG*(RIGA*(NU) 
,2,27)&W* ELSE RIGA*(NU)~SEG*(RIGA*(NU), 
1, Y-l ) ?<SEG* (RIGA* (Nll) , Y+l, 20-Y) &W* 

810 IF Fl=l THEN F1=0 :: GOSUB 2330 
OTO 480 ELSE NU=NU+1 :: Y=1 :: GOTO 790 
820 SCHERMO=SQHERMO-1 :: C0=1 :: RI=3 :: 

CALL CLEAR : : GOSUB 2330 : : GOTO 480 
830 IF SCHERMO*20>=NUMRIGHE THEN 480 ELS 
E SCHERMO—SCHERMQ+1 :: RI=3 :: C0=1 s: C 
ALL CLEAR : : GOSUB 2330 : : GOTO 620 
840 CALL DELSF'RITE(#1): : DISPLAY AT(23, 1 
) : " (EXMXCXDXI > <ESCAPE>":" " :: FO 
R T=1 TO 50 : : NEXT T 

850 CALL KEY(5,K,S) : : IF S=0 THEN 850 
860 IF K=15 THEN CALL DELSPRITE(#1): : GO 
TO 250 

870 IF K=69 OR K=101 THEN GOSUB 2390 :: 
GOTO 620 

880 IF K=77 OR K=109 THEN 920 
890 IF K=67 OR K=99 THEN 1050 
900 IF 10=68 OR K=100 THEN 1110 
910 IF K=73 OR K=105 THEN 1150 ELSE 850 
920 DISPLAY AT(23,1):"MOVE) DA,A,DOPO LA 
RIGA" :: ON ERROR 2470 :: ACCEPT AT(24, 

1):R* : : GOSUB 2500 

930 IF R3<R1 OR R3>R2 AND R1<=R2 THEN 96 
0 

940 DISPLAY AT(24,1>:"* ERRORE » PRESS < 
ENTER>." 

950 CALL KEY(0,K,S): : IF S=0 OR K<>13 TH 
EN 950 ELSE 840 

960 BL0CC0=R2—R1+1 :: IF NUMRIGHE+BLOCCO 
<300 THEN 990 

970 GOSUB 2390 :: DISPLAY AT<24,1):"* ME 
MORY FULL * PRESS ENTER." 

980 CALL KEY (0, K, S) : : IF S==0 OR K<>13 TH 
EN 980 ELSE 840 

990 CTR=NUMRIGHE :: FOR J=R1 TO R2 :: CT 
R=CTR+1 :: RIGA*(CTR)“RIGA*(J): : NEXT J 
1000 IF R3>R2 THEN 1020 

1010 FOR J=R2 TO R3+BL0CC0+1 STEP -1 :: 
RIGA*(J)=RIGA*(J-BLOCCO): : NEXT J :: GOT 
0 1030 

1020 FOR J=R1 TO R3-BL0CC0 :: RIGA*(J)=R 
ISA*(J+BLOCCO): : NEXT J 
1030 IF R3<R1 THEN Q=0 ELSE 0=BL0CC0 
1040 FOR J=1 TO BLOCCO :: RIGA*(R3-Q+J)= 
RIGA*(NUMRIGHE+J): : NEXT J :: BOTO 390 
1050 DISPLAY AT(23,1):"COPY) DA,A,DOPO L 
A RIGA" :: ON ERROR 2470 :: ACCEPT AT(24 
,1):R* : : GOSUB 2500 

1060 IF R3<R1 OR R3>=R2 AND R1<=R2 THEN 


1070 ELSE 940 

1070 BL0CC0=R2—R1 + 1 :: IF NIJMRIGHE+BL..OCC 
0 >300 THEN 970 

1080 CTR=0 :: FOR J=NUMRIGHE+BLOCCO TO R 
3+BL0CC0+1 STEP -1 :: RIGA*(J)=RIGA*(NUM 
RIGHE-CTR) : : CTR=CTR+1 :: NEXT .1 
1090 NUMRIGHE=NIJMRIGHE+BLQCCQ :: IF R3>R 
2 THEN 0=0 

1100 CTR=0 :: TOR J=R3*1 TO R3+BL0CC0 : : 
RIGA* < J)“RIGA*(R1+Q+CTR)s: CTR=CTR+1 ; s 
NEXT J : : GOTO 390 

1110 DISPLAY AT<23,1):"DELETE) DA RIGA,A 
RIGA" :: ON ERROR 7470 :: ACCEPT AT(24, 
1):R* : : GOSUB 2500 

1120 IF RI>R2 OR R1<1 OR R2>NUMRIGHE-1 T 
HEN 940 

1130 Q=R2-R1+1 :: CTR=0 :: FOR J=R1 TO N 
UMRIGHE-Q :: CTR=CTR+1 :: RIGA*(J)=RIQA* 
(R2+CTR): : NEXT J 

1140 NUMR I GHE=NUMR IGHE-13 :: GOTO 390 
1150 DISPLAY AT(23,1):"INSERTI FILE'NAME 
,AFTER LINE" :: ON ERROR 2470 :: DISPLAY 
AT(24,1):"DSK1." 

1160 ACCEPT AT(24,1)SIZE(—28):R* :: PX=P 

OS(R*,", ", 1): : IF PX=0 OR PX>16 THEN 940 

1170 FNW*=SEG* (R*, 1, PX--1 ) s : R3=VAL(SEG*( 

R*,PX + 1,LEN(R*)—PX)): : BL0CC0=0 

1180 OPEN #1:FNW*,SEGUENTIAL,INPUT ,DISP 

LAY ,VARIABLE 80 

1190 IF EOF(1)THEN 1210 

1200 LINPUT #1:RECORD* :: X=POS(RECORD*, 
F*,1): : IF X=0 THEN BLOCCO=BLOCCO+2 :: G 
OTO 1190 ELSE BLOCCO=BLOCCO+INT(X/28) 
1210 IF BLOCCO+NUMRIGHE>300 THEN CLOSE 4 
1 : : GOTO 970 ELSE RESTOSE #1 s: CTR=0 
1220 FOR J =NUMRIBHE+BLOCCO TO R3+BL0CC0+ 

1 STEP -1 :: RIGA*(J >“RIGA*(J-BLOCCO): : 
NEXT J 

1230 IF EOF(1)THEN 1260 ELSE LINPUT #1:R 
ECQRD* : : X=POS(RECORD*,F*,1) 

1240 FOR J=0 TO 1 :: IF X=28*J+1 THEN 12 
60 ELSE CTR=CTR+1 :: RIGA*(R3+CTR)=SEG*( 
RECORD*,28*J+1,28) 

1250 NEXT J :: GOTO 1230 

1260 CLOSE #1 : : NUMRIGHE=NIJMR IGHE+BLOCC 
0 : : GOTO 390 

1270 GOSUB 2200 :: J=1 :: QN ERROR 2220 
1280 OPEN #1:FINA*,SEQUENTIAL,OUTPUT,DIS 
PLAY .VARIABLE 80 

1290 RECORD*=RIGA*(J)&RIGA*(J+l):s PRINT 
tt 1 : RECORD* :: IF J + KNUMRIGHE THEN J=J + 

2 : : GOTO 1290 

1300 CLOSE #1 :: GOSUB 2390 :: GOTO 300 
1310 GOSUB 2190 :: IF SC*="N" OR SC*="n” 
THEN GOSUB 2390 : : GOTO 300 
1320 GOSUB 2390 :: DISPLAY AT(23,1):"dev 
ice name:" :: DISPLAY AT(24,1):"RS232" 
1330 ACCEPT AT(24,1)SIZE(-28):DEV* :: CA 
LL CLEAR 

1340 ON ERROR 2430 :: OPEN #4:DEV* :: DI 
SPL.AY AT(18, i ) : "* STAMPA #" : " " : "MARGINE 
SINISTRO = 10” 

1350 ACCEPT AT(20,20)SIZE(-2)VALIDATE(DI 
BIT):MS :: IF MS<1 OR MS>80 THEN 1370 
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Seguito listato 2. 

1360 DISPLAY AT<21,1):"NUMERO COLONNE = 
60" :: ACCEPT AT<21,18)SIZE(~2>VALIDATE( 
DIGIT) :LF :: : IF LF>1 AND LF<80-MS+1 THEN 
1390 

1370 DISPLAY AT (23)DEEP:"* ERRORE * FORM 
ATO STAMPA":"* PRESS <ENTER> TO CONTINUE 

II 

1380 CALL KEY <0,K,S): : IF S=0 OR K<>13 T 
HEN 1380 ELBE GOSUB 2390 :: GOTO 1350 
1390 DISPLAY AT(23,1):"PER INTERROMPERE 
LA STAMPA PREMI (FCTN)(9)=ESCAPE.- 
1400 UR=NUMRIGHE-1 :: J=1 :: W=MS :: ON 
ERROR 2440 

1410 PNT=LF :: RIG*="" 

1420 CALL KEY(5,K,S): : IF K=15 THEN CLOS 
E #4 : : GOTO 250 

1430 IF SEG*(RIGA*(J),1,i)="\” THEN PX1 = 
1 :: GOTO 1930 

1440 RIGA0*=RI6A* ( J) : : LRO=LEN <RIGAO* ) 
1450 IF PNT<LRO THEN 1490 
1460 RIG*=RI6*&RIGA0* :: PNT=PNT-LRO :: 
J=J + 1 

1470 IF PNT--0 THEN 1500 

1430 IF J>UR THEN 1500 ELSE 1420 

1490 RIG*=RIG*&,SEG*<RIGAO*, 1,PNT) 

1500 ST*=RIG* : : STS=0 
1510 REM CONTROLLO 

1520 REM A CAPO RIGA 
1530 IF LEN <ST*)'<LF THEN 1820 
1540 L. 1 $=--SEG<T> ( BT*, LF-1,1) 

1550 L2*=SEG*(ST*,LF,1) 

1560 IF PNTOO THEN 1500 

1570 IF J>UR THEN 1820 ELSE RIGAO*=RIGA* 
(.1) 

1580 L3*=SEG*(RIGA0*,PNT+1,1): : L4*=SEG* 
(RIGAO*, PNT+2, 1) 

1590 IF L3*=CHR*<32)THEN STS=STS-1 :: GO 
TO 1800 

1600 IF L2*=L3* OR L3*=L4* THEN 1750 

1610 IF L1*=L2* THEN 1790 

1620 IF L1*="C" AND L2*="G" THEN 1790 

1630 IF L1*="C" AND L.2*="q" THEN 1790 

1640 IF L2*=CHR*(32)THEN 1750 

1650 PX-POS <",.;: -/+=) 54 ! ? ? ' "&CHR* (34) , L.2 

$.,!):: IF PXOO THEN 1800 

1660 PX=POS<", . 5 :-/+=> 54!?’ " "&CHR* (34) , L3 

■6,1):: IF PXOO THEN 1750 

1670 PX---POS ( "LRMN1 rmn", LI*, 1) : : IF PX=0 

THEN 1690 

1680 CALL VOCALE<L2*,V): : IF V=0 THEN 17 
90 

1690 CALL VOCALE <Ll!6, V) : : IF V=0 THEN 17 
50 

1700 CALL VOCALE(L2S,V): : IF V=1 THEN 17 
50 

1710 CALL VOCALE<L3*,V): : IF V=1 THEN 17 
90 

1720 IF L3*="R" OR L3*="r" THEN 1790 
.1730 IF L2$<>"S" AND. L2*<>"s" THEN 1750 
1740 IF L2*< >L3* THEN 1790 
1750 STS=STS+1 :: IF STS>10 OR STS>LF~1 
THEN ST*=RIG* : : GOTO 1820 


1760 L4*=L3* :: L3*=L2* :: L2*=L1* :: LI 
*=SEG<6(ST*,LF-1-STS,1) 

1770 ST*=SEG*(ST*,1,LF-STS>: : GOTO 1590 
1780 GOTO 1820 

1790 ST*=SEGi6 (ST*, 1, LEN (ST*)- 1 ) &CHR* (45) 

:: STS=BTS+1 

.1800 DIFF=LF- LEN<ST$) 

1810 IF DIFF>0 THEN CALL MARGINE(ST*,DIF 
F) 

1820 PRINT #4:RPT*(" ",W)ó:: IF KK=1 THE 
N W-MS 

1830 PRINT #4:ST* 

1840 IF J>UR THEN 1920 
1850 PNT=PNT—STB 

1860 IF PNT—28 THEN J=J+i s: BOTO 1410 
1870 IF PNT<1 THEN 1890 

1880 RIGAO*=SEG*(RIGAO*,PNT+1,LRO-PNT): : 

LRO=LEN(RIGAO*): : GOTO 1910 
1890 IF PNT=0 THEN 1410 

1900 J=J-1 : : RIGA0*=SEG*(RIGA*(J),LRO+P 
NT+1,-PNT): : LRO=LEN(RIGAO*) 

1910 PNT—LF :: RIG*="" s: GOTO 1450 

1920 CLOSE #4 : : GOTO 250 

1930 I.F LEM (RIG* ) =0 THEN 1970 

1940 FOR 0=1 TO LEN (RIG*) : : IF ASC(SEG*( 

RIG$,0,1))< >32 THEN PRINT #4:RPT*<" ",W) 

j RIG* :: GOTO 1960 

1950 NEXT 0 :: GOTO 1970 

I960 IF KK=1 THEN W=MS 

1970 PX2=P0S (RIGAGLI) , "\",PX1+1> ; : IF PX 
2=0 THEN J=J+1 :: GOTO 1410 
1980 CQD=VAL(SEG*(RIGA* <J>,PX1+1,PX2-PX1 
-1)):: IF COD=14 THEN W=W/2 :: KK=1 ELSE 

K.K=0 

1990 IF C0D=15 THEN W=INT(W*33/20)+1 
2000 IF C0D=18 THEN W=MB 

2010 PRINT #4:CHR*(COD); : : PX1=PX2 :: GO 
TO 1970 

2020 GOSUB 2190 :: IF SC*="Y" OR SC*="y" 
THEN NUMRIGHE=1 :: FINA*="NEW" :: RIGA* 
(1)=F* 

2030 GOSUB 2390 : : GOTO 300 
2040 CALL CLEAR : : ON ERROR 25.30 : : OPEN 
#3:"DSK1.", INPUT ,RELATIVE,INTERNAL :: 
CTR=0 ; : T=~7 

2050 INPUT #3:DN*,J,J,K :: PRINT "DISKNA 
ME=" ; DN*: "a vai labi e~" ; K; "used" ; J-K 
2060 PRINT : : FOR L00P=1 TO 127 : : INPUT 
#3:FM*,Y,J,K :: IF LEN(FN*)=0 THEN 2120 
2070 IF ABS <Y)=2 THEN PRINT FN*;TAB(19+T 
);STR*(J),: : CTR=CTR+1 : : T=-T 
2080 IF CTR<36 THEN 2110 

2090 PRINT :" PRESS <ENTER> TO CONTINUE" 
2100 CALL KEY <0,K,S): : IF S=0 THEN 2100 
ELSE PRINT :: CTR=0 
2110 NEXT LOOP 

2120 CLOSE #3 : : IF T=+7 THEN PRINT 
2130 PRINT :"DELETE FILE? (Y/N) N" :: AC 
CEPT AT(23,20)SIZE(~1)VALIDATE("YNyn"):R 
* 

2140 IF R*="N" OR R*="n" THEN 250 

2150 FLAG=1 : : ON ERROR 2220 : : GOSUB 23 

90 : : GOSUB 2200 : : GOSUB 2190 

2160 IF SC*="N" AND SC*="n" THEN 250 
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Seguito listato 2. 

2170 OPEIM #5: FINA*, SEGUENTI AL, INPUT ,DIS 
PLAY ,VARIABLE 80 :: CLOSE #5:DELETE 
21S0 FLAG=0 : : FINA*=FNW* : : GOTO 250 
2190 DI SF'LAY AT ( 246 ) BEFP : "SEI SI CURO? ( 
Y/N) N" :: ACCEPT AT<24,24)SIZE<-l)VALID 
ATE("YNyn"):SC* : : RETURN 
2200 FNW*=FINA* :: DISPLAY AT<23,1):"fi1 
b name: DSK1." :: ACCEPT AT(23,12)SI 2E(- 
15): FINA* 

2210 RETURN 

2220 DISPLAY ATC23, i>:"* ERRORE * FILE N 
OT PRESENT" :: DISPLAY AT(24,1):"(PRESS 
<ENTER> TO CONTINUE)" 

2230 CALL KEY (0, K, S) : : IF 5=0 OR KO-13 T 
HEN 2230 ELSE GOSUB 2390 :: FINA*=FNW* 
2240 IF FLAGRI THEN FLAGRO : : RETURN 250 
ELSE RETURN 300 

2250 GOSUB 2320 IF NU<NUMRIGHE THEN R 
ETURN 

2260 IF NUMRISHE<300 THEN 2290 
2270 DISPLAY AT(23,1)BEEP:"* WARNING * 0 
UT OF DIMENSION" s: DISPLAY AT(24,1):"pr 
orni ENTER per continuare" 

2280 CALL KEY(0,K,S):: IF S=0 OR K<>13 T 
HEN 2280 ELSE CALL HCHAR(23,3,32,60): : R 
I=R.I — 1 : : RETURN 

2290 RIGA*(NUMRIGHE)=RPT*(" ",28>:: NUMR 

1 GHE=NIJMR IGHE+1 : : RIGA* ( NUMR I GHE ) =F* 
2300 DISPLAY AT(RI,1): RIGA*(NUMRIGHE-1): 

: IF RI<22 THEN DISPLAY AT(RI+1,1>:F* 
2310 RETURN 

2320 NU=<SCHERMO-1)*20+R1-2 :: RETURN 
2330 IF SCHERM0*20<=NUMRIGHE THEN FINE=2 

2 ELSE FINE=NUMRIGHE+2—(SCHERMO-1)*20 
2340 GOSUB 2320 :: Y---0 :: FOR J=RI TO FI 
NE : : DISPLAY AT(J,1): RIGA*(NU+Y): : Y=Y+ 
1 : : NEXT J 

2350 IF SCHERM0=1 THEN GOSUB 2410 :: RET 
URN ELSE NU=(SCHERMO-1)*20 :: DISPLAY AT 
(1,1)sRIGA*(NU-l): : DISPLAY AT(2,1):RIGA 
*(NU> 

2360 RETURN 

2370 NUMRIGHE=NUMRIGHE+1 :: FOR J=NIJMRIG 
HE TO NU+1 STEP -1 :: RIGA*(J)=RIGA*(J-l 
): : NEXT J 

2380 RIGA*(NU)=RPT* <" ", 28): : RETURN 


2390 CALL HCHAR(23,3,32,60): : RETURN 
2400 CALI HCHAR(1,3,32,60):; RETURN 
2410 IF FINA*='*NEW" THEN W*="edit NEW FI 
LE" ELSE W$-"edit "&FINA* 

2420 DISPLAY AT(1,1):W* :: DISPLAY AT(2, 
1)sRPT*("-",2S): : RETURN 

2430 DISPLAY AT(23,1):”* ERRORE * STAMPA 
NTE" : : GOTO 2450 

2440 DISPLAY AT(23,1):"* ERRORE * CODICI 
CONTROLLO" 

2450 DISPLAY AT(24,1):"(PREMI ENTER PER 
CONTINUARE)" 

2460 CALL KEY<0,K,S>: : IF S=0 OR K<>13 T 
HEN 2460 ELSE CLOSE #4 : : RETURN 250 
2470 DISPLAY AT(24,l)s"* ERRORE * PRESS 
<ENTER>." 

2480 CALL KEY(0,K,S): : IF S=0 OR K<>13 T 
HEN 2480 ELSE RETURN 840 
2490 RETURN 300 

2500 PX=POS(R*,", ", 1): : IF PX=0 THEN Rl = 
VAL(R*): : R2,R3=0 s: RETURN 
2510 R1=VAL (SEG* (R*, 1, F'X-1 ) ) : : PY=POS(R* 
,»,",PX+1): : IF PY=0 THEN R2=VAL(SEG*(R* 
,PX+1,LEN(R*)-PX)): : R3=0 RETURN 
2520 R2=VAL(SEG*(R*,PX + 1,PY-PX-1)): : R3= 
VAL(SEG*(R*,PY+1,LEN(R*)-PY)): : RETURN 
2530 PRINT " * ERROR * DISK NOT PRESENT" 
:"PRESS <ENTER> TO CONTINUE." 

2540 CALL KEY(0,K,S):s IF S=0 OR K<>13 T 
HEN 2540 

2550 ON ERROR 2560 : : CLOSE #3 
2560 RETURN 250 
2570 !@P+ 

2580 END 

2590 SUB VOCALE(LX*,V) 

2600 V=POS("AEIOUaeiou",LX*,1): ; IF V< >0 
THEN V=1 
2610 SUBEND 

2620 SUB MARGINE<RX*,W) 

2630 LS=LEN(RX*>; : CTR=0 

2640 FOR J=1 TO L.S-1 :: L=ASC (SEG* (RX*, L 
S-J,1)) 

2650 IF L=32 THEN RX*=SEG*(RX*,1,LS-J) 
"&SEG* (RX*, LS-J + l, .J+CTR) : : CTR=CTF<+1 
2660 IF CTR=W THEN SUBEXIT 
2670 NEXT J : : IF CTF«W THEN W=W-CTR : : 
GOTO 2630 
2680 SUBEND 


da una mailing list. 

I comandi Copy e Insert possono 
portare ad una saturazione della me¬ 
moria disponibile nel qual caso 
compare il messaggio ★ MEMORY 
FULL ★ PRESS ENTER, che ren¬ 
de invalido il comando impedendo 
la sua esecuzione senza che il pro¬ 
gramma debba subire un blocco. 
Escape fa tornare al menu principa¬ 
le. 

Consideriamo ora il modo in cui 
si possono inserire nel testo codici di 


controllo per la stampa. Si è detto 
che i capoversi in cui viene suddiviso 
il testo devono venir separati da una 
riga con una barra obliqua inversa 
(Fctn z) nella prima posizione. Eb¬ 
bene, dopo tale segno si possono in¬ 
serire i codici decimali, riportati nel 
manuale della stampante, ognuno 
seguito da una barra obliqua inver¬ 
sa. Ad esempio, \ 10 \ produce il sal¬ 
to di una riga; \ 15 \ causa la stampa 
di caratteri condensati; e ancora 
\ 27 \ 69 \ ha come effetto la stampa 


nel modo enfatizzato, ecc. 

In pratica si possono usare tutti i 
codici previsti dal manuale; l'unica 
limitazione sta nel fatto che che non 
è possibile inserire nella stessa riga 
diverse modalità di stampa. Tutta¬ 
via si può sempre ottenere l’intesta¬ 
zione di una lettera con caratteri di¬ 
versi, ad esempio condensati, evi¬ 
denziare un titolo con caratteri enfa¬ 
tizzati, ecc. Resta inteso che il pro¬ 
gramma riesce a tenere allineato il 
margine sinistro anche in presenza 
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Non tutti i leoni 
sono veramente Leoni. 


Ecco come 
riconoscere un 
vero programma 
Leoni informatica 



Quando per il tuo 
home-computer il negoziante 
ti offre un programma a basso costo, dif 
fidane. Nella quasi totalità dei casi si tratta di una 
copia duplicata, che per di più può non girare bene. Le 
conseguenze, specialmente se si tratta della tua contabilità, sono 
facilmente immaginabili. Leoni Informatica, Azienda leader, fa programmi 
da sempre, e da sempre è sinonimo di altissima qualità. Riconoscere questi 
programmi è facile. La classica confezione bianca e blu è accuratamente si¬ 
gillata. AH'interno, allegate al floppy disk, vi sono le istruzioni in italiano e, cosa 
importantissima, la cartolina di garanzia. Inoltre Leoni Informatica è stata la 
prima in Italia ad offrire la garanzia a vita, l'assistenza ed il continuo aggiorna¬ 
mento dei suoi programmi. Al tuo negoziante chiedi quindi la qualità, l’assisten¬ 
za e l'aggiornamento: chiedi i programmi Leoni Informatica. 

Richiedi a Leoni Informatica l'ele nco g uida ai suoi prog rammi, 
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Leoni 



informatica 


Leoni Informatica non ti abbandona mai 


Leoni informatica Srl - Sviluppo Software - Vendita Hardware 
Via Valsolda, 21 - 20143 Milano • Tel 02-8467378-8465072 


Potete trovare i nostri programmi in tutta Italia nei punti vendita Buffetti 
e dai rivenditori autorizzati che espongono il nostro marchio. 


BES Milano 










Text-Editor 
per TI99/4A 

di caratteri ingranditi o condensati. 

Siamo convinti che questo Text- 
Editor, pur non dotato di tutte le 
funzioni di Writer TI, ne elimina il 
difetto dovuto alla presenza di fine¬ 
stre laterali ed offre una buona leggi¬ 
bilità accompagnata dalla facilità 
d’uso. A chi poi adopera attualmen¬ 
te l’Editor/ Assembler come elabo¬ 
ratore di testi, dà innegabili vantaggi 
per la sua capacità di inserimento e 
cancellazione di caratteri con il riag¬ 
giustamento dell’intero capoverso e 
di controllo del formato stampa. In 
ogni caso il fiore all’occhiello resta la 
sua prerogativa di giustificazione 
del margine destro con la suddivisio¬ 
ne delle parole in sillabe secondo la 
grammatica italiana. Una caratteri¬ 
stica davvero poco comune anche 
nei word-processor più sofisticati. 



DIFF 

Numero di space da inserire in 
una riga di stampa per giustifi¬ 
care il margine destro. 

COD 

Numero di codice per il con¬ 
trollo della stampa. 

FLAG 

Variabile flag usata in una su¬ 
broutine richiamata da un'i¬ 
struzione On Error; in base al 
suo valore il programma viene 
rimandato all’inizio del menu 
o all’accept del menu stesso. 

FNS 

Nome di un file letto dal cata¬ 
logo del dischetto. 

DNS 

Nome del dischetto. 


Principali variabili del programma 


RIGA$() - Righe di testo di 28 carat¬ 
teri ciascuna. 

NUMRIGHE - Numero di righe de¬ 
lle quali è composto il testo in memo¬ 
ria. 

FINA$ - Nome del file in memoria. 
SC$-Scelta dell’utente tra le opera¬ 
zioni del menu. 

RECORDS - Variabile di lavoro per 
la lettura o la scrittura di un record 
da o su disco. Ogni record contiene 
due righe di testo. 



T E X T 

EDITOR 

copyright 

@1984, S.Borsani 


1 LOAD 

2 EDIT 

3 SAVE 

4 PRINT 

5 PURGE 
b FILES 


scelta? 


Figura 1. Menu principale che pre¬ 
senta le stesse funzioni dell’Edi¬ 
tori Assembler con l'aggiunta 
dell'opzione Files con la quale si pos¬ 
sono leggere e cancellare i file presen¬ 
ti sul dischetto. 



Figura 2. Premendo Edit si può crea¬ 
re un nuovo testo o editarne uno già 
presente in memoria. Il cursore “vuo¬ 
to" indica che ci si trova nel modo 
comandi. 


SCHERMO - Numero dello scher¬ 
mo sul quale è presente una parte di 
testo; corrisponde al numero della 
pagina video. 

FINE - Variabile di lavoro per mos¬ 
trare la prima pagina di testo. 

RI,CO - N unterò di riga e di colonna 
sul quale si trova il cursore a forma 
di quadrato vuoto che si ha nel modo 
funzioni. 

R$ -Variabile che accetta momenta¬ 
neamente una riga scritta dall’uten¬ 
te. 

NU - Numero di riga che si sta edi¬ 
tando. 

Z$,W$ - Variabili di lavoro usate 
prevalentemente per ridefinire le rig¬ 
he dopo un inserimento o la cance¬ 
llazione di un carattere.. 


FI - Variabile flag che indica la fine 
del testo o di un capoverso durante 
la ridefinizione delle righe in seguito 
alla cancellazione o aH’inserimento 
di un carattere. 

R1,R2,R3 - Memorizzano rispetti¬ 
vamente la prima e l’ultima riga di 
un blocco di testo e il numero di riga 
oltre il quale va collocato. Le varia¬ 
bili sono usate con le funzioni: Mo¬ 
ve, Copy, Insert, Delete. 

BLOCCO - Lunghezza, espressa in 
numero di righe, del blocco di testo 
da inserire o da copiare. 

CTR - Variabile con funzione di 
contatore. 

PX - Posizioni in cui si trovano le 
virgole che separano i numeri di riga 
specificati dopo una funzione Move, 
Copy, ecc. 

FNW$ - Variabile usata per memo¬ 
rizzare momentaneamente il nome 
di un file. 

DEV$-Nome dell’interfaccia per la 
stampante. 

' \ 

edit NEW FILE 


*** (EOF) *** 


J 

Figura 3. Premendo il tasto Enter 
compare il cursore nero lampeggiante 
e si inizia la scrittura. 



Figura 4. Con il nuovo Text-Editor 
non si è costretti a leggere il testo 
attraverso finestre contigue. 
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Text-Editor 
per TI99/4A 


edit NEW FILE 


Per andare a capo riga non s 
i devono seguire le comuni n 
orme grammaticali sulla sudd 
ivisione delle parole in sii 
labe, ma bisogna scrivere co 
me se si continuasse sulla s 
tessa riga* 

(EOF) **# 


Figura 5. Ogni capoverso viene consi¬ 
derato dal programma come un unica 
lunga riga di testo. La formattazione 
avviene aI momento della stampa. 


correttamente. La lunghezza LF vie¬ 
ne poi ripristinata distribuendo un 
uguale numero di space all'interno 
della riga. 

L1$,L2$ - Penultimo ed ultimo ca¬ 
rattere di una riga nel formato stam¬ 
pa. 

L3$,L4$ - Primo e secondo carattere 
della riga successiva a quella che 
dev’essere stampata. La loro conos¬ 
cenza è indispensabile per poter an¬ 
dare a capo in modo corretto. 

V - Variabile flag che indica la pre¬ 
senza di una vocale. 


edit NEW FILE 


Il testo viene suddiviso in 
capoversi, separati da una b 
arra obliqua inversa. 

Dopo la barra obliqua inizia 
un nuovo capoversoB 
**# (EOF) **# 




Figura 6. La barra obliqua inversa 
separa un capoverso dall’altro. 


MS - Numero di colonne lasciate 
libere oltre il margine sinistro nel 
testo stampato. 

LF - larghezza del formato di stam¬ 
pa. 

UR - numero di righe da stampare. 
PNT - Variabile di lavoro per for¬ 
mattare le righe per la stampa. 

RIG$ Riga di LF caratteri prima 
del controllo per andare a capo riga 
nel modo grammaticalmente corret¬ 
to. 

PX1,PX2 - Posizioni delle barre 
oblique inverse nelle stringhe conte¬ 
nenti i codici di controllo per la 
stampa. 

RIGAOS - Variabile di lavoro usata 
per formattare le righe per la stam¬ 
pa. 

LRO - Lunghezza di una riga nel 
formato video. 

ST$ - Riga nel formato stampa. 
STS - Numero di caratteri di cui 
deve essere ridotta la riga nel forma¬ 
to di stampa per poter andare a capo 


Principali routine 


100-240 - Inizializzazione di tutte le 
variabili e dei sottoprogrammi per il 
pre-scan. 

250-310 - Titolo e menu. La linea 
.300 riabilita il Break (Fctn 4) in mo¬ 
do da poter fermare il programma. 


^editNEWFrLE__^ 

II testo viene stampato in u 
n Formato definito dall’uten 
te. Il programma giustifica 
il margine destro e formatta 
le righe di stampa avvalend 
osi di una routine per andar 
e a capo suddividendo le par 
ole in sillabe secondo le re 
gole della grammatica italia 
na. 

□ *** (EOF) *** 


Vi_ J 

Figura 7. Esempio dell'uso di un codi¬ 
ce di controllo delta stampa. 


edit NEW FILE 


Premendo i1 tasto ESC=FCTN 9 
appaiono in basso altre firn 
zioni rjchiamabili con le lo 
ro iniziali. Premendo un'alt 
ra volta ESCAPE si torna al 
menu principale. 
q *#* (EOF) *#* 


<EXM><CXD>< I > < ESCAPE > 

V___ -s 

Figura 8. Premendo Escape (Fctn 9) 
nel modo comandi si accede a funzioni 
che permettono il trasferimento di 
grossi blocchi di testo così come il 
merge di un file da disco con la fusione 
di due testi. 



Figura 9. La larghezza del formato 
stampa viene definita dall'utente al 
momento stesso della stampa. 


_NEW_r 1 «_E_ 

TEXT EDITOR PER TI-99/4A 48K 


\ 10 \ 

Questo e' un testo di prova 
per verificare la capacita' 
del programma di suddividere 
le parole in sillabe per ma 
ntenere 1’al 1ineamento del m 
argine destro. Si utilizzerà 
' il formato standard a 60 c 
olonne e successivamente que 
Ilo a 40 colannel 

*** (EOF) *** 


V_ J 

Figura 10. Testo di prova. 


Nelle altre fasi ciò è possibile solo 
con il comando Quit (Fctn +). 
320-380 - Caricamento di un pro¬ 
gramma da disco (Load). 

390-420 - Visualizzazione della pri¬ 
ma pagina video nel modo Edit. 
430-460- Viene accettata una riga di 
stampa. 

470-610 - Studio della tastiera per 
accettare i comandi di editing. 

620 - Controllo cursore. 

630-680 - Esecuzione comando Aid. 
690-710 - Esecuzione comando De- 
lete Line. 

720-770 - Esecuzione comando In- 
sert Char. 

780 - Esecuzione comando 1 nsert Li¬ 
ne. 

790-810 - Esecuzione comando De- 
lete Char. 

820 - Esecuzione comando Roll 
Down. 

830 - Esecuzione comando Next 
Screen. 

840-910 - Esecuzione comando Es¬ 
cape e attesa per ulteriori comandi di 
editing. 

920-1040-Comando Move. 
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D.M. 4/275258 del 2-3-85 




un Jocksoniano 
personal computer 



rapida e comprensibile a tutti, ideata e realiz¬ 
zata dagli specialisti del Gruppo Editoriale 
Jackson. 

Il primo numero è in edicola, corri a prender¬ 
lo: puoi vincere 30 fantastici MSX Philips! 

Ma non solo. 

Trovi in regalo il poster del Basic che fi con¬ 
sente di convertire i programmi di una mac¬ 
china su qualsiasi altra. 

Diventa un Jacksoniano 
con ABC personal com¬ 
puter. 


GRUPPO 

EDITORIALE JACKSON 


È in edicola ABC personal computer, il corso 
programmato per tutti i personal che fi inse¬ 
gna il Basic e a dialogare col computer in me¬ 
no di 6 mesi. 

ABC personal computer ti svelerà tutti i se¬ 
greti dei personal. Inoltre, se non hai ancora il 
computer, ABC personal computer ti aiuta a 
sceglierlo bene, perchè ogni settimana prova 
per te i personal più interessanti. 

ABC personal computer in soli 25 fascicoli set- 
\ timanali. 

\ ABC personal computer è un'opera esauriente, 


...E VINCI 
30 FANTASTICI 
MSX PHILIPS 


GRUPPO ETHOS 







Text-Editor 
per T199/4A 


TEXT EDITOR PER TI-99/4A 40K. 


TEXT EDITOR PER T1-99/4A 48K. 


Questo t?’ un testo di prova per verifi¬ 
care la capacita' del programma di sud¬ 
dividere le parole in sillabe per mante 
nere l’allineamento del margine destro. 
Si utilizzerà’ il formato standard a 60 
colonne e successivamente quello a 40 
colonne. 


Questo e' un testo di prova per verificare la capacita' del 
programma di suddividere le parole in sillabe per mantenere 
1 ? al 1ineamento del margine destro. Si utilizzerà' il formato 
standard a 60 colonne o successivamente quella a 40 colonne. 

Figura 12. Stampa del testo di prova su 60 colonne. 


Figura 11. Stampa del testo di prova su 40 colonne. 



1050-1100 - Comando Copy. 

1110-1140 - Comando Delete. 
1150-1260 - Comando Insert. 
1270-1300 - Memorizzazione di un 
file su disco (Save). 

1310-1410 - Preliminari per la stam¬ 
pa. 

1420-1500 - Formattazione della ri¬ 
ga di stampa. 

1510-1810 - Routine per andare a 
capo riga secondo le regole della 
grammatica italiana. 

1820-1830 - Stampa di una riga. 
1840-1910 - Routine per inizializza- 
re una nuova riga nel formato stam¬ 
pa. 


1920 - Termine della stampa. 
1930-2010 - Routine per la lettura e 
l’esecuzione dei comandi per il con¬ 
trollo della stampa. 

2020-2030 - Esecuzione del coman¬ 
do Purge. 

2040-2180 - Lettura dei file presenti 
sul disco ed eventuale loro cancella¬ 
zione. 

2190 - Subroutine per attendere una 
conferma. 

2200-2210 - Richiesta del nome del 
File. 

2220-2240 - Gestione degli errori 
durante il Load o quando si esegue la 
cancellazione di un file. 


2250-2280 Controllo della lung¬ 
hezza del testo. 

2290-2310 Subroutine per predis¬ 
porre una riga vuota per la scrittura 
e per far avanzare la riga che indica 
la fine del testo (Eof). 

2320 - Calcolo del numero di riga 
dove si trova il cursore. 

2330-2360 - Mostra una pagina di 
testo sul video. 

2370-2380 - Subroutine per inserire 
una riga vuota nel testo in memoria. 
2390-2400 - Subroutine per cance¬ 
llare rispettivamente le ultime e le 
prime due righe del video. 

2410-2420 - Scrittura del nome del 
File nella prima riga della prima pagi¬ 
na del testo. 

2430 - Messaggio d’errore. 
2440-2460 - Gestione degli errori 
durante la stampa. 

2470-2480 - Controllo degli errori in 
fase di editing. 

2490 - Subroutine per rimandare il 
programma all’Accept del menu 
principale in caso di errore. 
2500-2520 - Determinazione della 
posizione delle virgole che separano 
i numeri di riga nei comandi Move, 
Copy, Delete e Insert. 

2530-2560 - Subroutine per la ges¬ 
tione degli errori nelle operazioni 
I/O su disco. 

2570 - Ripristina il pre-scan prima 
dei sottoprogrammi BASIC. 

2580 - Fine del programma princi¬ 
pale. 

2590-2610 - Sottoprogramma per la 
ricerca di una vocale. 

2620-2680 - Sottoprogramma per 
inserire uniformemente degli space 
in una riga di stampa in modo che 
risulti allineato il margine destro, g 
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Un’analisi qualitativa 
di equazioni differenziali 

di Stefano Checchini 

U sare il termine “qualitati¬ 
vo” in uno studio, sia pure 
non specialistico, di carat¬ 
tere matematico, genera sempre una 
certa diffidenza e tuttavia vi sono 
situazioni nelle quali la precisione ed 
il rigore costituiscono un approccio 
che allontana dalla comprensione 
del problema e non lo rendono evi¬ 
dente come si potrebbe. 

Alcune questioni di analisi matema¬ 
tica, trattate sino a qualche tempo fa 
nei bienni universitari, vengono oggi 
presentate anche a studenti delle 
scuole superiori, specialmente in 
corsi tecnici di recente - relativamen¬ 
te - costituzione (nucleari, elettroni¬ 
ci, informatici). 

Tuttavia lo spazio dedicato a questi 
argomenti viene solitamente utiliz¬ 
zato per un apprendimento princi¬ 
palmente operativo - saper fare - più 
che per tentare una comprensione 
globale del modello. 

Di certo, uno dei motivi che si addu¬ 
cono per semplificare la presenta¬ 
zione teorica sta nella difficoltà in¬ 
trinseca degli argomenti proposti. 

In realtà, sacrificando un poco di 
rigore, si possono presentare buone 
esemplificazioni per numerose que¬ 
stioni, anche complesse. 

. In questo articolo vogliamo esa¬ 
minare come sia possibile affrontare 
uno studio qualitativo per alcune e- 
quazioni differenziali. Il supporto 
informatico rivela una potenza e- 
spressiva che rende ragionevolmen¬ 
te semplice e immediata l’interpreta- 
zione del modello differenziale e in 
particolare la nozione di “integrale 


generale” di una equazione differen¬ 
ziale. 

Il problema 

Supponiamo che un fenomeno (fi¬ 
sico, biologico, economico, ...) sia 
modellizzabile con una equazione 
differenziale del primo o secondo 
ordine del tipo: 

(1) y’ = F(x,y) 
oppure: 

(2) y” = F(x,y,y’) 

Se sono soddisfatte alcune condizio¬ 
ni accessorie si può affermare che 
esistono, e sono uniche, le soluzioni 
di entrambe, che risultano essere 
funzioni y(x), soddisfacenti per la ( 1 ) 
alle assegnate condizioni iniziali 
xO,y(xO) e per la (2) all’ulteriore con¬ 
dizione y’(xO). 

In parole povere esisterà una sola 
funzione y = f(x), passante per il 
punto del piano cartesiano P = 
(xO,y(xO)), che soddisfi la ( 1 ) e per la 

(2) abbia derivata assegnata y’(xO). 
Come è possibile affrontare in ter¬ 
mini semplici una equazione diffe¬ 
renziale e, soprattutto, come si può, 
utilizzando mezzi informatici ele¬ 
mentari, avere un quadro completo 
delle soluzioni? 

Se osserviamo innanzitutto che è 
possibile scrivere, in virtù della sola 
definizione di derivata, la relazione: 

(3) h--o |im y( x + h) -y( x ) , F(I>y) 

h 

ne consegue la validità della appros¬ 
simazione seguente: 

(4) y(x + h) = y(h) + F(x,y)^h 

ove, si badi bene, la uguaglianza è 
teoricamente errata e in realtà si do¬ 
vrebbe notare con: 

(5) y(x + h) = y(x) + F(x,y)-*h + o(h) 


Tuttavia sostituendo la formula (5) 
con la (4) commettiamo un errore 
relativamente trascurabile (almeno 
se h è un valore prossimo a zero) 
essendo questo infinitesimo d'ordi¬ 
ne superiore ad h stesso. 
Nelfutilizzare la relazione (4) in luo¬ 
go della (1) sostituiamo alla equa¬ 
zione differenziale una equazione 
dalle differenze finite. 

A partire da determinate condizioni 
iniziali xO,y(xO) e per un fissato valo¬ 
re di h sufficientemente piccolo si 
ottiene la sequenza: 

y(x I ) = y(xO + h) = y(xO) + F(x0.y(x0))*h 
y(x2) = y(x I + h) = y(x I ) + F(x I ,y(x 1 ))*h 

y(xn + I ) = y(xn + h) = y(xn) + F(xn,y(xn))*h 

con i valori y(xO),y(xl),...y(xn) della 
quale si individuano nei punti xO, 
xl,„. i vertici di una spezzata, cioè 
una poligonale a tratti rettilinei, che 
viene denominata spezzata di Eule¬ 
ro. 

Questa linea ottenuta con elementi 
lineari rappresenta una soluzione E- 
approssimata della equazione diffe¬ 
renziale. 

E’ possibile dimostrare, ma qui non 
è il caso, come la soluzione 
E-approssimata, che dipende evi¬ 
dentemente dalla scelta del valore h, 
sia convergente uniformemente alla 
soluzione esatta per h->0. 

Ciò significa, in particolare, che per 
valori di h appropriati la spezzata di 
Eulero rappresenta una soluzione 
più che adeguata per una interpreta¬ 
zione qualitativa del comportamen¬ 
to globale delle soluzioni. A mag¬ 
gior ragione nelle approssimazioni 
grafiche delle stesse. 

Nella figura 1 abbiamo messo a 
confronto la soluzione teorica con le 
soluzioni E-approssimate per i valo¬ 
ri di h = 0.1, 0.01,0.001, utilizzando 
la equazione di prova: 

v . = x *yi2 

y x+1 
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Figura 1. Confronto tra le soluzioni E-approssimate 
per i valori li = 0.1, 0.01, 0.001 e la soluzione teorica. 
Nel caso in cui h= 0.001 la curva approssimata e 
quella teorica sono sovrapposte. 


ESTREMI PEL CAMPO 
ASSE X I'A-1 fi 4 
ASSE V PA 0 A 30 



Figura 2. L’errore diventa sensibile dopo il valore 
x = 3. 


che, per le condizioni iniziali x0 = 0, 
y0 = 0.5, ammette come unica solu¬ 
zione la funzione: 

1 

y= - 

log(x + l)-x + 2 

Nella figura si vede chiaramene che 
quando il valore di h diventa picco¬ 
lo, la poligonale di Eulero si avvici¬ 
na alla curva soluzione. 

Anzi, per h = 0.001 la soluzione ap¬ 
prossimata e la soluzione teorica ri¬ 
sultano praticamente sovrapposte 
per effetto della limitata risoluzione 
della pagina grafica (320 x 200 pun¬ 
ti)- . . 

Per meglio apprezzare gli errori che 
si commettono con questo semplice 
algoritmo abbiamo tracciato nella 
figura 2 la curva soluzione e l’ap¬ 
prossimante con h = 0.001 in un 
campo cartesiano più ampio del pre¬ 
cedente. 

Si osservi come le due funzioni si 
discostino, per effetto degli errori, 
maggiormente quanto più ci si al¬ 
lontana dal punto iniziale di svilup¬ 
po. 


Il modello 

Se dunque, per appropriati valori 
di h sufficientemente piccoli, la poli¬ 


gonale di Eulero approssima in mo¬ 
do soddisfacente la curva y = f(x) so¬ 
luzione dell’equazione, abbiamo la 
possibilità di tracciare con un sem¬ 
plice algoritmo iterativo la famiglia 
delle curve integrali di una data e- 
quazione differenziale. 

In particolare, se dobbiamo esami¬ 
nare una equazione del primo ordi¬ 
ne: 

y’ = f(x,y) 

questa può essere scritta sotto forma 
di sistema autonomo ponendo: 

dy=Q(x,y) 
dx = P(x,y) 

e sostituendo le equazioni alle diffe¬ 
renze finite si ottengono le formule 
ricorsive seguenti: 

y(t + h) = y(t) + h*-P(x(t),y(t)) 
x(t + h) = x(t) + h*-P(x(t),y(t)) 

E’ sufficiente un ciclo di calcolo per 
ottenere facilmente ascissa ed ordi¬ 
nata dei vertici della poligonale. 
Ugualmente per le equazioni di se¬ 
condo ordine: 

y” = f(x,y,y’) 

che vengono scritte sotto forma di 
sistema ponendo la variabile ausilia- 
ria z = y\ in modo tale che risulti: 

y’=z 

z’ = f(x,y,z) 


Infatti sotituendo nuovamente le e- 
quazioni alle differenze finite, si ot¬ 
tiene: 

y(x + h) = y(x) + h-*z 

z(x + h) = z(x) + h*f(x,y(x),z(x)) 

In questo modo, ricordando che la 
equazione di secondo ordine ha va¬ 
lori iniziali x0,y(x0), y’(x0) = zO, i va¬ 
lori iterati calcolati sono: 

xl = xO + h, y(xl) = y(x0) + lv*z0, 
z(xl) = zO-t-h*f(xO,y(xO),zO) 
x2 = xl +h, y(x2) = y(xl) + h-*zl, 
z2 = zi -Fh^f(xl,y(xl),zl) 

con i quali si individuano nuova¬ 
mente le coordinate dei vertici per la 
poligonale di Eulero della equazione 
( 2 ). 

A titolo di esempio abbiamo ripor¬ 
tato nella figura 3 una soluzione del¬ 
la classica equazione di Bessel con le 
condizioni iniziali x0=l, y(x0) = 0, 
y’(x0) = 1. 

Descrizione del programma 

Il programma Equadif è stato im¬ 
plementato sul Commodore 64 uti¬ 
lizzando il tool Simons’ BASIC. In 
realtà le uniche istruzioni del Si¬ 
mons’ usate sono: 

1) Hi-res, che passa all’alta risolu¬ 
zione del Commodore (320 x 200 
punti). 
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2) Line i, j, 1, m. l,che traccia la linea 
congiungente le coordinate assolute 
(i..i)e (1, m). 

3) Copy, che esegue una copia sulla 
stampante di quanto tracciato sullo 
schermo. 

4) Text,che permette la stampa di un 
carattere o testo nella pagina grafi¬ 
ca. 

5) Pause k. che consente un ciclo di 
attesa di k secondi. 

Per il resto le istruzioni BASIC usate 
sono assolutamente standard e per¬ 
tanto il programma dovrebbe adat¬ 
tarsi facilmente ad altri liome e mi- 
cro. 

Semmai occorrerà eliminare qualcu¬ 
no dei cicli Open 1,4... Close 1, che 
nel Commodore permettono di tra¬ 
sferire messaggi alla stampante, e si 
dovrà sostituirli con istruzioni equi¬ 
valenti. 

Evidentemente, chi non avesse la 
stampante si accontenterà del qua¬ 
dro video eliminando l’istruzione 
Copy e sostituendola con un ritorno 
alla linea, esempio: 

6200 COPY:END (cancellare) 

6200 GOTO 6200 

Le uniche istruzioni veramente inso¬ 
stituibili sono quindi Hi-Res e Line. 
Sono stati tuttavia già pubblicati di¬ 
versi programmi anche in linguag¬ 
gio macchina che permettono la uti¬ 
lizzazione dell’alta risoluzione sul 
C64. 


Per coloro che avessero la stampan¬ 
te MPS 801 o simili e fossero privi 
del Simons’, vi è la possibilità di ese¬ 
guire una copia del video utilizzan¬ 
do il programma dell'appendice B 
del manuale d'uso della stampante. 
(Ricordiamo che alcuni manuali 
non riportano la correzione: 

60060 SC = PEEK(VR i 40*CL. + R0) 

che deve essere fatta nel programma 
pubblicato nel manuale se si usa la 
stampante con il C 64). 

Chiarite le questioni di compatibili¬ 
tà, vediamo il programma nelle sue 
linee essenziali, essendo semplice e 
senza particolari novità. 

1 ) Linee 1025-1065, elenco delle pro¬ 
cedure. 

2) Linee 1065-1080, auto-modifica 
del programma, con la tecnica che 
utilizza il buffer di tastiera, per dare 
in lettura le funzioni utilizzate. 

3) Linee 1080-1190, richiamo dell’al¬ 
ta risoluzione e salto alla subroutine 
di calcolo e tracciamento. 

4) Linee 1550-1850, sottoprogram¬ 
mi di inserimento richiamati dalle 
procedure 1). 

5) Linee 2000-3100, disegno del 
campo e trasformazione del sistema 
assoluto di schermo nel riferimento 
relativo. Questa parte permette di 
scegliere nove diversi riferimenti per 
l’osservazione e precisamente: 
•ciascuno dei quadranti cartesiani; 


•ciascuno dei semipiani cartesiani; 
•il piano cartesiano stesso spostato 
nel punto desiderato. 

6) Linee 5000-5120, sottoprogram¬ 
ma di calcolo e tracciatura della so¬ 
luzione teorica, se conosciuta. 

7) Linee 6000-6200, sottoprogram¬ 
ma di calcolo e tracciatura della so¬ 
luzione approssimata per l’equazio¬ 
ne del primo ordine. 

8) Linee 7000-7200, sottoprogram- 
ma equivalente al precedente ma re¬ 
lativo alle equazioni del secondo or¬ 
dine. 

9) Linee 8000-8010, inizialmente 
non esistenti e generate dal Pro¬ 
gramma con la procedura 2). 
L’occupazione totale di memoria è 
di circa 25 blocchi (6 Kbyte). 


Uso del programma 

Vediamo ora come si usa il pro¬ 
gramma Equadif e come si può e- 
ventualmente modificarlo e miglio¬ 
rarlo. 

AH’apparire dell’elenco procedure, 
vi sarà richiesto se intendete compa¬ 
rare una soluzione nota con la solu¬ 
zione approssimata; scegliendo que¬ 
sta opzione dovrete inserire la fun¬ 
zione che riterrete essere la soluzione 
della equazione differenziale. - 
Ritornati al menu principale, occor¬ 
re specificare se si tratta di un con¬ 
fronto con una equazione del primo 



Figura 3. Soluzione dell'equazione di Bessel 
x~y "+xy’+ (x 2-4)y=0 con le condizioni iniziali 
x o = 1 -Lo = 0 , yò—l• 



Figura 4. La soluzione dell’equazione y’=y.sen(x) 
individuata con la poligonale di Eulero confrontata con 
la soluzione teorica esatta. Si osservi l'errore di algorit¬ 
mo che dipende dalla scelta del valore h = 0.05. 
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Figura 5. La soluzione vera (f(x) ) confrontata con 
una ipotetica soluzione y=exp(cos(x)-l) per l'equa¬ 
zione y‘=y.sen(x). Si consideri che la funzione f( x ) è 
una soluzione E-approssimata ottenuta con il calcolo 
iterato. 



o del secondo ordine. 

Nel primo caso si eseguirà la proce¬ 
dura 2), nel secondo la 3), dopo aver 
introdotto la equazione differenzia¬ 
le (vi verrà suggerito come scriver¬ 
la). 

Dopo aver confermato che si tratta 
di un confronto, si dovrà inserire il 
valore XI del punto iniziale di svi¬ 
luppo. 

Vengono in seguito digitati i dati uti¬ 
lizzati per inquadrare il settore di 
piano cartesiano, e sono memoriz¬ 
zati anche i valori xO, y(xO) del pun¬ 
to iniziale di sviluppo (se si tratta di 
una equazione del secondo ordine, 
va aggiunto il valore y’(xO)). 

Tutto questo comunque viene ri¬ 
chiesto in modo colloquiale; non re¬ 
sta che immettere l'incremento h de¬ 
siderato, che consigliamo di mante¬ 
nere tra i valori h = 0.1 e h = 0.01 
(attenzione, se h è molto piccolo i 
tempi di calcolo diventano molto 
lunghi). 

Quando tutti i dati sono a disposi¬ 
zione del calcolatore apparirà sullo 
schermo l’area di piano interessata e 
inizierà a tracciarsi la curva dal pun¬ 
to iniziale dato. Dapprima apparirà 
il prolungamento della soluzione al¬ 
la destra di tale punto, in seguito si 
disegnerà il ramo di sinistra e infine 
apparirà la traccia della soluzione 
teorica. 

E’ possibile in questo modo con¬ 


trollare la esattezza di una vostra 
ipotesi di soluzione o l’eventuale er¬ 
rore di approssimazione dovuto alla 
scelta di h. 

Come si può vedere nella figura 4, la 
soluzione approssimata calcolata 
con h = 0.05 e la soluzione y = exp( 1 - 
cos(x)) della equazione; 

y’ = y.sin(x) 
y(0)=l 

differiscono graficamente di poco. 
Invece nella figura 5 la soluzione ap¬ 
prossimata è stata confrontata con 
la soluzione volutamene errata (ma 
verosimile) y = exp(cos(x)-l), e l’er¬ 
rore è fin troppo evidente. 

11 secondo utilizzo del programma 
Equadif, che consideriamo più inte¬ 
ressante, è quello che permette di 
tracciare la famiglia delle curve inte¬ 
grali. 

In questo caso, all’apparire del me¬ 
nu, si evita la procedura 1) e si inizia 
con l’inserimento della equazione 
differenziale. 

In seguito vengono richiesti i para¬ 
metri utilizzati per la tracciatura del 
piano cartesiano e per l’individua¬ 
zione delle condizioni iniziali ma, in 
aggiunta, si dovrà inserire anche il 
valore SA che determina la scansio¬ 
ne delle curve (più è piccolo e più 
sono vicine e numerose). 

Il valore consigliato in questo caso è 
compreso tra 0.2 e 0.8. 


Sullo schermo appariranno in se¬ 
quenza una prima curva integrale 
che si diparte dal punto x0,y(x0) as¬ 
segnato, poi una seconda curva ad 
una quota maggiore, una terza e cosi 
via. 

Tracciati i prolungamenti a destra, 
si completeranno quelli a sinistra. 
Dopo un certo tempo tutta la fami¬ 
glia delle soluzioni risulta tracciata e 
si possono facilmente individuare le 
discontinuità, gli asintoti e i punti 
critici. 

Nella figura 6 sono state tracciate le 
curve dell’integrale generale per la 
equazione: 


Vi si osservano con molta chiarezza i 
punti critici in (0,0) e in (-1, -1); il 
primo è un nodo attrattore in quan¬ 
to tutte le linee vi confluiscono, il 
secondo è un colle e le linee integrali 
si allontanano da esso. 

Modifiche 

Per coloro che desiderano ridurre 
l'influenza dell’errore - dipendente 
da h - che risulta maggiore quanto 
più ci si allontana dal punto iniziale 
di sviluppo x0,y(x0) possiamo sug¬ 
gerire di sostituire la routine di cal¬ 
colo con procedimenti più precisi. 
Infatti il metodo di Eulero, essendo 
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Listato 1. Il programma principale. 


ìeoe 

>010 
ten 
>012 
io: 3 

1014 

1015 
101* 
>017 
1010 
101? 
1020 
1021 
1022 

1023 

1024 

1025 
1030 
1035 
1040 
1045 
1050 

1052 

1053 
1055 
1060 

1063 

1064 

1065 

1066 
1065 
1070 
1075 
1080 
1081 
1082 
1083 

1085 

1086 

1087 

1088 
108? 
10?0 
10?5 
1100 
1110 
1120 
1130 
IMO 
1150 
1160 
1161 

1165 

1166 
1167 
1170 

1174 

1175 

1176 

1177 
1180 

1185 

1186 

1187 

1188 
118? 
1190 

1195 

1196 
1200 
1205 
1210 
1230 
1235 
1550 
1555 
1560 
1600 
1605 
1610 
1615 
1620 
1625 
1630 


EQUAZIONI DIFFERENZIALI 


COME I «.DAZIONE 

li commodori cin 64 

Z) UNITA MASTRO 

3) SINON$ FASIC 
OPZIONALI 

4) STAMPANTE 

DI STEFANO CHECCAINI 
V.LE NAPELLI.95-SESTO 
TEL. 2487645 


ELENCO PROCEDURE - 


CURVE INTEGRALI PI’ PRINT" 
CURVE INTEGRALI DI’ PRINT* 


E SOLUZIONE APPROSSINATA- 

V*»f\X.V>" 

V «F'X.V.V 


R£M#< 

REM# 

REM* 

R€«* 

REM* 

REM* 

REM* 

REM* 

REM* 

PEM* 

REM* 

REM# 

PEM* 

REM# 

REM# 

REM# 

REM#**## 

REM- 

RRiNT-:r 

FRINT » EQUAZIONI PIFFERETCIAL! 

PRINT PRIMI' Ji PROCEDURE ‘ PRINT 
PRIMI- t > CONFRONTO TRA SOLUZIONE TEORICA 
PRINT PRINT- Z> FAMIGLIA DI 
PRINT PRINT" 3) FAMIGLIA DI 
PRINT PRINT" »#*> FINE 
PRINT PRINT' 94 QUALE iCEGLI ■ 

INPUTHI IFNl01ANDHI02ANDHIC SANO MI04 TMEN 1060 

IF MI-4 THEN END 

IF HI-I THEN QOSUD 1800 

IF HI-3 THEN GOSUB 1700 GOTO 1070 

GOSUB 1600 

REM-. INPUT DA BUFFER - 

P0KE198.3 PCKE631.I9 POE632.13 P0KE633.13 PRINT-*.19001 DEFFMA*:</**A» 
PAINT“C DEFFNB«X)--H. FRINT-B RETURN" PRINT‘IliOTO 1080" SVS42115 

REM- CAMPO DI DEFINIZIONE - 

PRINT-.T PRINT PRINT SO STAI ESEGUENDO IL CONFRONTO ><S/N>". INPUT TI 
IF T»<>"$“ THEN 1087 

PRINT PRINT-DA QUALE VALORE $1 MUOVE LA PQO Itti-". INPUT XI 

PRINT PRINT" X2 QUALE CONFRONTO HAI SCELTO? <2 0 3>"* HI GOTO 1039 

PRINT PRINT** QUALE PROCEDURA HAI SCELTO?". 

INPUT HI 

IF HI02ANDHI03THEN 1087 

PRINT INPUT"«INTRODURRE LA ASCISSA MINIMA XO “»X0 IF X0>0 THEN 1090 
INPUT" LO ASCISSA MASSIMA XI ".XI IF XKO THEN 1095 

INPUT" L'ORDINATA MINIMA V0 “.VO IF V0;>0 THEN 1100 

INPUT" L'ORDINATA MASSIMA Vi ";V1 IF YKO THEN 1110 

PRINT PRINT SA*<Vl-VO* 


DI MISURA DELL ASSE X 
DI MISURA DELL ASSE V 


.UX IF UXC-0 THEN 1130 
,UV IF UVC-8 THEN 1140 


XO 


’ 


INPUT XA XB-XA 


INPUT VA VB-YA 


INPUT ZA ZB-ZA 


INPUT“UNITA' 

INPUT“UNITA 
PRINT 

PRINT PRINT* M VALORE INIZIALE DI 
IF XACX00RXA3XI THEN 1160 
PRINT" * VALORE INIZIALE DI V<XO> ? 

IF VA<Y0URVA>V1 THEN 1165 
IF MI-2 THEN 1174 

PRINT* * VALORE INIZIALE DI V'<XD> ? 

PRINT 

PRINT" * INCREMENTO DEL PARAMETRO H ? ", INPUT DP IF DPC.OOOl THEN 1175 

IF Tt«"S“ THEN 1180 

PRINT" M DISTANZA DELLE CURVE IN XO ? 

PRINT-MMttMMM QRAFICO DELLE FUNZIONI 9 1 
OPEN 14 CMD1 PRINTil."ESTREMI DEL CAMPO" PRINT*!."ASSE X DA-,X0," A" XI 
PRINTil."ASSE V DA".YO.“ A".VI PRINT*1."UNITA* DI MISURA".UX"-".UV 

PRIKTOl."CONDIZIONI INIZIALI X0-",XA." V<XO)-".VA 
PRINT»!,"INCREMENTO M-’.DP.“ SALTO ■“•SA 
PRINT»! CLOSE1 


", INPUT SA IF SAC.Ol THEN 1177 


REM— 


-TRACCIATURA FUKZIO»«— 


DX«320/<Xl-XO/ DV-200/<Vl-V0) SO-l 
H1RES IO 

GOSUB2000 REM DEF.CAMPO 

IF HI>2 THEN 003UB 6000 REM FAMIGLIA HIT. 

IF HI“3 THEN GOSUB 7000 

REM PROCEDURE DI INSERIMENTO • 

PEMM#*#**##*#######*##* •#••••#♦## 

PRINT"T 

INTEGRALE GENERALE DI V'-F<X.V> 

." SI CONSIDERI LA EQUAZIONE DIFF.LE 
SCRITTA NEL SEGUENTE MODO «“ PRIMTTAB' 17>"0<X.V>" 

V'-F<X.V>- - “ PRINT TAB<17>"P<X.V>* 


PRINT 
PRINT 
PRIMT“I»|-. 
PRINT'IH* 
PRINT-» 
PRINT" « 


9 EQUAZIONI DA INSERIRE 
P<X.V>-“. INPUT Al 


1635 

1640 

1645 

1650 

1655 

1660 

1665 

1678 

1700 

1705 

ino 

1715 
1720 
1725 
17V0 
1735 
: 7 

1755 

1760 

1770 

1800 

1810 

1820 

18» 

1840 

185*3 

2000 

2010 

2020 

2025 

2030 

2835 

2040 

2050 

2060 

2080 

2090 

2100 

2110 

2115 

2120 

2125 

2130 

2135 

2M0 

2150 

2160 

2165 

2170 

2175 

2180 

2185 

2190 

2195 


QtXV»»- 


IHPUT II 


* Al 


£1 


v - 2 " 


PR1NT“»W»»I PRIMI" 3 ■ V- 


PRINT 

Hli-Ì* THEN PRINTil "STUDIO DELL INTEGRALE GENERALE DI Y «Vfl G0T01665 
PRINT»! 

PRINTil. ' STUDIO DELL INTEGRALE GENERALE V - 
PRINTil," 

PRINTil CLOSEI 
RETURN 
PRINT-.T 

PRINT » INTEGRALE G€f€P*LE W v * r, X vv 
PRINT• r,*»»l SI CONSIDERI LH EQUAZIONE DJFF.lE 

FRItlT-IT.- SCRUTA COME SISTEMA * PAItlTTAB* 10)"Y »Z 
PRINT PPINT TA| l«."Z *F« :*.. V. Z * 

FRINÌ «Il a EQUAZIONI Dh inserire w 
PRINT" t F<x V.V IrFUf Bl AI«*Z" 

PRINT PRINT- -M ATTEN210»€ LA V E iCFITTA CC4C FRUSCI 
OPEN 1.4 

PRINTil.* STUDIO BELL INTEGRALE GENERALE V 
PRINTil CLOSEI 
RETURN 
PRINT-T 

PRINT * CW^POMTO SOLUZIONI 
PRINT PPINT- QUALE E LA iOLUZIOtC ESATTA 

P0ME198*J PO»E631 • 19 P»>E632 lì PC#E6>3 13 P«IHT*.T»».' l€FFNE- »"EI 
PRINT“II RETURN- PRINT "H&QTO IO»* SVS421I5 

FEM**••♦♦••*••*••••♦•••*•*••••••♦# 

REM# PROCEDURE PER RIFERIMENTO • 

REM#****•••*••*••••••♦*•♦•♦••••••• 

::S-ABS*.XO> UNHJXIDX TR-XS#DK UV*uv*Dv 
IF 0-OANDV0-0 THEN 2200 
IF X.l■OANDYO'O TH£N 2230 
IF XI-OANDVl-0 THEN 2260 
IF ..O-OANDVI-O THEN 2290 
IF XO-O THEN 2600 
IF XI*0 THEN 2800 
IF V0»0 THEN 2900 
IF VI-0 THEN 3000 
LINE 0.VliDV.320-VI#DV.1 
FOR H*l 70 IMTlX|AJK> 

LItC TR*MiUN.VliDV*2.TR*M»UN.V!»BV-2.1 

io:t m 

FOR H»0 TO IMTOC8/UCOM ST6P -1 
Lite TR*H#UU.Vl#DV*2.TR*H*UN.YliDV-2.I 
ICXT H 

TEXT <XS*UX)#DX»Yl#177*3■ "••J*. I • 1 ■ I 
LINE TR.O.TP 2001 
FOR M-ITO INT<VI/UY) 

LINE TR-2.Vl#DV-M#UV.TR*2.VI#DV-H#UV.1 
NEXT H 

FOR M-O TO INT<Y0/UV>4I STEP -1 
LINE TR-2,V1iDV-HRUV,TR*2.VI*DV-H#UV.I 
NEXT H 

TEXT TR-lO.VliDV-UV."«»J". 1,1. 1 


2199 RETURN 

2200 REM-1 QUADRANTE.. 

2210 LI-200 L2-0 L3-<X$*UX)iDX L4-V1/UV 
2220 Sl-I S2-I Ml-1 H2-1 GOTO 2500 

2230 REM-2' QUADRANTE- 

2240 L1-200 L2-320 L3-L2-UX*DK L4-V1/UV 
2250 SI —1 S2-1 HI-0 M2-1 GOTO 2500 

2260 REM-3' QUADRANTE--- 

2270 Ll-0 L2-320 L3-320-UXÌDX L4-V8.UV*! 
2280 SI—1 S2--1 HI-0 H2-0 GOTO 2500 

2290 REM.4 QUADRANTE-. 

2300 Ll-0 L2-0 L3«<XS#UX>*DX L4-V0XUV#! 
2310 Sl-l S2—! HI-1 H2-0 GOTO 2500 

2580 REM.— QUADRANTI - 

2510 LIME 0,Li-320 LI.I 

2515 FOR H-Hl TO <IMT<L5» STEP SI 
2520 Ll»€ TR*M#UM.L!.TR*M#UN.ABS<L!-3>.I 
2525 tCXT H 

2550 TEXT L3-AfS<LI-10>..I•I 

2560 Lite L2.0.L2.200.1 

2565 FOR M-H2 TO <INT<L4>)STEP S2 

2570 L!t€ L7.VIiDV-H#VV.L8.VI#PV-M#UV.I 

2575 l€XT H 

2590 TEXT ABS<L2-10>.L6*-«T•1.I•I 
2595 RETURTI 

2660 REM-1 SEMIPIENO-- 

2610 Lite 0.VliDV.320*VliDV. I 
2615 FOR H-1 TO IMT<X1/UX> 

2620 LINE HtUU.Vl»DV*2*K»UN*VI#DV-2,1 
2625 NEXT M 

2650 TEXT <XS*UX)#K<.VI#DY*3.’'8J". 1.1.1 
2660 Lite 0.0.0.200.1 
2665 FOR W-ITO !IIT<V!/UY> 

2670 Lite 0.V1#DV-M#UV.3.V1#DV-H#UV.1 
2675 tCXT H 

2680 FOR H-0 TO I»IT<V©/UV>M STEP -1 
2685 Lite O.Vl#DV-H#UV3 .V1#DV-M#UV.I 
2690 t€XT M 

2695 TEXT tO,VliDV-UV.-*J*.1*1*1 


L5-X1/UK L6-V1ÌDV-UV L7-0 LO-3 
L5-.''30»'UX*l L6»VliDV-UV L7-317 L8«LZ 
L5-X0/UX*1 L6-200-UV L7-3I7 L8-L2 
L5-X1/UX L6-UV L7-0 L8-3 


del primo ordine, ha una propaga¬ 
zione dell’errore consistente, mentre 
altri consentono di ridurre l’influen¬ 
za dell’errore di algoritmo. 

Il metodo di Eulero può essere sosti¬ 
tuito dai seguenti. 

I ) Metodo Predictor-Corrector 
Tra le molte formule di questo tipo 
si può ricordare la più semplice, che 
è: 


y(x + h) = y(x) + h4rf(x,y) 

y(x + h) = y(x)+l/24-h^(f(x,y) + 

f(x + h,y(x + h)) 

Se si desidera utilizzarla, si sostitui¬ 
scano le linee di pari numero del 
programma di listato 1 con quelle 
del listato 2. 

2) Metodo di Runge-Kutta 
Anche per questa conviene conside¬ 


rare la forma più semplice: 

kl = lv*f(x,y) 

k2 = h^f(x + h/2,y + kl/2) 

k3 = h*f(x + h/2,y + k2/2) 

k4 = h*f(x + h,y -I- k3) 

y(x + h) = y(x)+ l/6^(kl +2*k2-t-2 

★k3 + k4) 

il programma deve essere allora mo¬ 
dificato come nel listato 3. 
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Il piimo settimanale di software 
su carta pei il tuo personal computer. 
Un appuntamento al quale non puoi 
mancare ogni venerdì in edicola. 
Nato in edizione unica, per i più 
diffusi home e personal 
computer, dal 1 Aprile, 
allo stesso prezzo, saranno 
in edicola le versioni dedicate 
ai prodotti Sinclair (ZX81, 

ZX Spectrum e QL) e ai 
prodotti Commodore (VIC20, 

CIÒ e C64). 

In più un'edizione esclusiva 
per gli utenti dei personal 
Apple, gli home computer 
Texas e i nuovissimi sistemi MSX. 

Una grossa novità: la possibilità 
di abbonarsi dal 1 Aprile 1985 
al 31 Dicembre 1985 per ricevere 
38 numeri del settimanale 
comodamente a casa con un 
notevole risparmio. Chi si abbona 
riceverà ogni 15 giorni 2 numeri 


di PAPER Sott 
in anticipo rispetto 
all’uscita in edicola. 
Non perderò questa 
occasione! 

Compila subito 
il coupon qui 
riportato e spediscilo 
a: 

J .soit 

V.le Restelli, 5 
20124 MILANO 


I 


Tagliando abbonamento a PaperSofl da inviare in busta chiusa a: 

J.soft - V.le Restelli, 5 - 20124 MILANO 

□ Abbonamento a 38 numeri di PoperSoft al prezzo speciale di L. 30.000 anziché L. 38.000 

□ edizione Sinclair (PS01) □ edizione Commodore (PC01) □ edizione Apple/T!99/MSX (PV01) 

□ contanti allegati □ assegno allegato n. _ 


□ ho versato l'importo sul c.c.p. n. 19445204 intestato a J .soft - MILANO 

Cognome_Nome _ 

Vio_Città_ 

CAP_Prov. _Data_ 


Firmo 


1 
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Equadif 
per C 64 


Segnilo listalo I. 


2699 KCTURM 

2800 REM.- 2 SEMIP1ANO- 

2810 LIME O.VIRDV»320.VI4DV.I 
2815 FOR H-0 TO IMT'XO.'UOM STEP -1 
2820 LINE TR*M4UN.VUDV-2.TR*H4W V14DV-2. I 
2825 NEXT H 

2850 TEXT 320-*tUX>4DC<. Vl*DY-W. "4U"» l • 1 • 1 
2866 LIME 320-0/328-200.I 
2865 FOR H-1T0 IMT<V|/W> 

2870 LIME 3l7.VI»8V-H#W.320.VI««V*MMIV.i 
2875 HEXT H 

2880 FOR H-0 TO IMT<V0/VY>*1 STEP -l 
2885 LINE 3I7.Vl»DV-HN.r/.320.Vl*DY-H*UV, I 
2890 MEXT H 

2695 TEXT 310. V14DV-UV, "'8J“ ■ 1.1.1 

2899 RETURN 

2900 REM -3' SEMI PI ANO - 

2910 LIME 0-200-320.200-I 
2915 FOR H-l TO INT<X1/UX> 

2920 LIME TR*H*UM.200.TR4M»UH.197.1 
2925 MEXT M 

2930 FOR H-0 TO INT<X0/UX>M STEP -l 
2935 L IME TR*HHM. 200. TR*H#W. 197.1 
2940 MEXT H 

2930 TEXT <XS*UX>#DX. 190. '«tT . 1.1.1 
2960 LINE TP.0TR.2OO.1 
2963 FOR M-1T0 INT<Vl/UV> 

2970 LINE TR-2.VI•8Y-H4UV.TR-2.VI*DV-H*W.1 
2975 MEXT M 

2993 TEXT TR-IO. YIRDV-UV. “»8J*. I. I. I 

2999 RETURN 

3000 REM.4' SEMIPIENO- 

30I0 LIME 0.O.32O.O,1 
3013 FOR H-l TO INT<X1/UX> 

3020 LIME TR+H4UN.0.TP*M*UN.3»1 
3023 NEXT M 

3030 FOR H=0 TO INT<XO/UX>M STEP -l 
3033 LINE TR+H4UN,0.TRtHRUN.3.1 
3040 NEXT H 

3056 TEXT <XS*UX>*DX, IO. -*T . I. I. I 
3060 LINE TR,0.TR.200.1 
3080 FOR H-0 TO INT<YO/UV>M STEP -l 
3083 LINE TR-2,V1*DV-M4U7,TR*2»V14DV-H*UV,1 
3090 NEXT M 

3093 TEXT TR-M/UV» "‘OLI’» 1.1.1 
3099 RETURN 

5000 REM - TRACCIO DELLA SOLUZIONE — 

5005 GOSUB 8002 

5010 PO-FME<XI> VO=208-<PO-VO>*DV UO-O 
5020 FOR T-0 TO 320 
303O XA-XI+T/BX 
5040 VA-FME<XA> 

v»20e-<yp-vo)*Dv 

IFV<OORY>20OORVOCOORVO>2OOTHEN5100 
LINE U0.VO.T.V.I 
U0-T VO-Y 
3110 MEXTT 
3120 RETURN 

6000 REM—FAMIGLIA DI INTEGRALI V- 

6810 GOSUB 8000 

6013 FOR TT-1 TO 1NT«V1 -YO>/SA • 

6020 VO»20O-<YA-YO>*PV U0-<XA-XO>*DX 
6030 FOR T-0 TO Xl-XO STEP DP/4 
6040 X-XA V-VA 

XA- X+FNR<X)8DP0S0 
VA- V*FMB<X>*DP4SQ 
IF X-XAORY-YATHEN 6123 
X- <XA-XO)*DX 
V-20O-<VA-V0>4DV 

I FY<eOFW208OPV0 :OORV0>28OORX>32O 
LINE ue,ve.x,v.i 
UO-X VO-Y 
6120 NEXT T 

6123 IF Tf«-S"ANDPU*0THEM GOTO 614© 

6126 IF Tf»“S"THEN GOSUB 3060 GOTO €200 
6130 XA-XB YA-YB*SA4TT 
6135 NEXT TT 

6140 SO—SO YA-YB XA-XB PU-PIK1 
6143 0NPUG0T06015.6150.6013.6168.6160,6200 
6130 XA—XB XB-XA VA-YB*SA/3 GOTO 6015 
6160 XA-0 XB-XA VA-YB+SA02/3 GOTO 6015 
6200 COPY END 
6300 PR1NT-.T GOTO 1023 

7000 REM-FAMIGLIA DI INTEGRALI V"~ 

7010 GOSUB 8000 

7013 FOR TT-0 TO IMT<<YI-VO>/SA> 

7020 V0-2OO-<YA-YO)*DY UC-<XA-X0>#DX 
7030 FOR T-0 TO Xl-XO STEP DP 
7040 X-XAY-VAZ-ZA 

7043 Xfl«:<A*DP*SG 

7030 VA- YA*Z«DP#SG 

7060 ZA- 2fHFNt<X>«DP*80 

7070 X- <XA-X0>*DX 

7080 Y-200-< VA-VO > 4 DV 

7090 IFV<0ORV>2OOORVO<OORVO>2OOORX>32O 

7100 LIME UO/VO.X.V.l 

7118 UO-X V0-Y 

7120 MEXT T 

7123 IF T#-"S"ANDPU-OTHEM GOTO 7140 
7126 IF Tf-S’THEM GOSUB 5000 GOTO 7200 
7130 XA-XB ZA-ZB VA-VB*SA4TT 
7133 MEXT TT 

7140 SO—SO YA-VB XA-XB ZA-ZB PU-PUM 
7145 IF PU-l THEM 7013 
7200 COPY END 

8000 REM-DEFINIZIONE FUNZIONI- 

8001 I€FFNA<X>-3*X4V/2 DEFFMB<X>»12*X*3*V RETURN 

8002 DEFFNE<X>*12 RETURN 
8010 REMNNNN» FINE 


3050 


5070 

3100 


6030 


6070 


610 

6110 


OR X<U ORUOCOOR U0>320THEM 6125 


OR X<0 ORUOCOOR U05320THEM 7123 


Che cosa ha in 
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più il Personal Computer IBM? 



L’assistenza dei Concessionari 
IBM Personal Computer, 
per esempio. 

Vedi il simbolo qui a fianco? E quello dei Conces¬ 
sionari IBM autorizzati a vendere il Personal 
Computer IBM. Sono loro i veri esperti a cui puoi 
rivolgerti per qualunque cosa tu voglia sapere sul 
Personal Computer IBM e qualunque necessità 
di assistenza tu abbia. 

I Concessionari IBM Personal Computer sono de¬ 
gli esperti perchè sono sostenuti in ogni aspetto 
della loro attività tecnica e di assistenza, da tutta 
l’esperienza IBM. 

IBM organizza per loro corsi di aggiornamento, 
sia sul le macchi ne sia sui programmi eli tiene co¬ 
stantemente informati su tutto quello che riguar¬ 
da il Personal Computer IBM. 

Rivolgiti a loro con la stessa fiducia con cui ti ri¬ 
volgeresti alla IBM: possono farti vedere tutti i 
modelli di Personal Computer IBM e spiegarti il 
loro funzionamento. 

Puoi andare da loro a consultare la Libreria Pro¬ 
grammi Personal Computer IBM: saranno lieti di 
darti tutte le informazioni che vuoi e ti indiche¬ 
ranno quale programma è più adatto alle tue esi¬ 
genze di lavoro. 

In più, i Concessionari IBM Personal Computer 
organizzano seminari e dimostrazioni e possono 
darti tutta l’assistenza di cui hai bisogno, l’assi¬ 
stenza che solo un vero esperto può fornirti. 
Vuoi sapere dove trovi gli indirizzi dei Concessio¬ 
nari IBM Personal Computer? Sono sulle Pagine 
Gialle. Inoltre puoi rivolgerti al Negozio IBM 
Centromilano. 

Allora, non ti pare che il Personal Computer IBM 
abbia veramente qualcosa in piu? 


COMPRA 

UN PERSONAL COMPUTER IRM. 


Puoi vincere un fantastico viaggio 
sulla rotta di Colombo. 

I Concessionari IRM e il Negozio 
IRM Centromilano ti aspettano 
dal 15/3 al 15/4 1985. 

























O COMMODORE 



SuperSinc e 
Super Commodore 
sono idee 


EDITRICE 
















































































































Equadif 
per C 64 


estremi owl campo 
asse x uh 0 a ?» 
asse y eia O a fi, 



Figura 7. Soluzioni della equazione preda-predatore 
con coefficiente E=(). Si evidenziano cicli produttivi 
poliennali rappresentati dalle caratteristiche chiuse. 


Conclusioni 


estremi oel campo 
>. eia ù a A 
asse y da 0 a 3 
unita' di misura i - 1 



Figura 8. Soluzioni della equazione preda-predatore 
con E=0.0l. Tutte le soluzioni convergono in modo 
spiraliforme ad un punto di equilibrio (popolazione 
stabile). 


Pur utilizzando un programma 
piuttosto elementare dal punto di vi¬ 
sta informatico, abbiamo potuto en¬ 
trare nel mondo complesso dei mo¬ 
delli matematici. 

Senza bisogno di imponenti appara¬ 
ti di calcolo e di teoria siamo nella 
condizione di capire cosa nasconde 
una relazione differenziale. 

A titolo di applicazione, presentia¬ 
mo nelle figure 7 e 8 le curve integrali 
del modello preda-predatore sem¬ 
plificato. 

In questo modello x è il numero delle 
prede, y il numeri dei predatori. La 
variazione dei predatori in relazione 
ai predati è data dalla equazione: 

y , = -ay + bxy 

cx-dxy-ex2 

dove a,c sono coefficienti dovuti al 
tasso di riproduzione e mortalità, 
mentre b,d sono coefficienti dovuti 
alla relazione intraspecifica di caccia 
tra le specie. 

Le diversità dei valori inseriti per 
a,b,c,d,e, mostrano chiaramente 
nella figura 7 1’esistenza di cicli pro¬ 
duttivi periodali, mentre la figura 8 
individua un processo di convergen¬ 
za verso uno stato di equilibrio (il 
punto attrattore). 

Questa è solo una delle molte possi¬ 
bili applicazioni. ■ 


Listato 2. Il programma con il metodo Predictor / Corrector. 


6000 REM-FAMI GL IR DI INTEGRALI V"'- 

6010 GOSUB8000 

6020 V0=200-< VA-V0)*DY:U0=<XA-X0> *DX 

6030 FORT=XAT0X1STEPDP/3 

6040 : X=XA:V=VA 

6050 : XA=FNfKX>#DP#SG 

6055 : VA=FNB<X>#DP#SG 

6060 : XM=FNfl< XA):YM=FNB<XA > 

6065 : XA=X+.5*DP#SG#<FNA<X>+XM)•VA=V+.5*DP*SG*<FNB<X>+VM) 

6070 : X=<XA-X0>*DX 

6080 : V=200-<VR-V0)#DV 

6090 : IFY<0ORY>200ORV0<0ORV0>2000RX>320ORX<0ORU0<0ORU0>320THEN6125 
6100 : LINEU0»V0»X»V»1 

6110 U0=x : V0=Y 
6120 NEXTT 


Listato 3. Metodo Runge-Kutta semplificato. 


6000 REM-FAMIGLIA DI INTEGRALI V' - 

6010 GOSUE'3000 : DEFFNC< X>=FNB< X) /FNA < X) 

6020 V0=200-<VA~Y0>*DV:U0=<Xfl-X0)#DX 
6030 FORT=XATOX1STEPDP 
6040 : X=XR : Y=YA 

6046 : K1 =FNC < X ) #DP*SG : V=Y+K 1X2 

6047 ^ K2=FNC < X+DP*SG/2 ) *DF*SG : V=Y-K 1 /2+K2/2 

6048 : K3=FNC<X+DP*SGX2)*DP*SG•V=Y-K2/2+K3 

6049 : K4=FNC<X+DP*SHG>*BP*SG 

6050 : XA=XR+BP*SG 

6060 : VA=YA+1X6#<K1+2*K2+2*K3+K4) 

6070 : X=<XA-X0>*DX 
6080 : Y=200-<Vfl-Y0)#DY 

6090 : IFV<0ORV>200ORV0<0ORV0>200ORX>32@ORX<0ORU0<0ORU0>320THEN6125 

6100 : LINEU0,V0,X,V,1 
6110 : U0=X : V0=V 
6120 NEXTT 
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Gollredo Haus 

ELEMENTI Di INFORMATICA 
MUSICALE 

Gli argomenti trattati comprendono elementi 
di matematica di base: descrizione lormale di 
fenomeni musicali, tecniche di analisi, elabora¬ 
zione e sintesi del testo musicale: tecniche di 
analisi elaborazione e sintesi del suono: meto¬ 
di per la rappresentazione grafica di informa¬ 
zioni musicali, elementi di ingegneria del 
sottware musicale, elementi sulle architetture 
dei sistemi per lelaborazione musicale; ele¬ 
menti sulle tecnologie avanzate utilizzate nel 
settore 

Cod. 802H Pag. 234 Lire 22.500 


e sludiare l'andamento temporale di un siste¬ 
ma: lo scopo è quello di consentire allo studen¬ 
te di confronlarsi con problemi anche comples¬ 
si, concentrandosi sugli aspetti fisici e ignoran¬ 
do in buona parte formalismi matematici 
Il disco contiene lutti i programmi in Basic per 
Apple Ile 

Cod. 550A Pag. 268 Lire 50.000 

Amadio Gonzi 

MASTER TVC 1 
MASTER TVC 2 

L'accoppiala MASTER TVC t e MASTER TVC 
2 passa in rassegna tulli i circuiti dei televisori 
a colon vecchi e nuovi, spiegandone il funzio¬ 
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Un gioco di strategia 
per Commodore 64, 
3032 e 4032 


di Stefano Guarinelli 


A i lettori e ammiratori di 
John R.R. Tolkien, fra i 
quali in prima fila si trova 
il sottoscritto, il nome di Gollum 
non sarà certamente nuovo. Si tratta 
del soprannome dato ad un certo 
hobbit reietto, Smeagol, che compa¬ 
re fra i personaggi sia de “Lo Hob¬ 
bit” sia del capolavoro di Tolkien e 
cioè “Il Signore degli anelli”. Gol¬ 
lum é un essere che dopo essersi 
macchiato di un omicidio (o meglio 
“hobbitcidio”) istigatogli dalla cupi¬ 
digia e dall'avidità per il possesso di 
un anello d’oro, si allontana dalla 
comunità della sua gente e ('ugge, 
nascondendosi nelle oscure foreste 
e, soprattutto, nelle grotte, subendo 
di conseguenza una profonda tra¬ 
sformazione: i suoi occhi impare¬ 
ranno a vedere neH’oscurità più nera 
e i suoi passi diverranno furtivi e 
silenziosi. Un essere infido dunque, 
ma divenuto pressoché innocuo fino 
al giorno in cui un certo Bilbo Bag- 
gins trova per caso e gli sottrae il suo 
tesoro e cioè quello stesso anello 
causa della sua condizione di vita e 
fine ultimo della sua esistenza. 

A questo punto, in parallelo ad 
una vicenda che coinvolge stregoni, 
signori del male e fitte schiere di or- 
chetti, elfi e cavalieri, ben più grandi 
e influenti per la storia di un singolo 
essere apparentemente insignifican¬ 
te, la folle ira di Gollum si scatena e 
proprio perché apparentemente pri¬ 
va di peso, la sua presenza metterà a 
dura prova l’eroismo di chi cercherà 


di riportare la pace nella “Terra di 
Mezzo”. Non tutti però sono così 
ingenui da non comprendere la peri¬ 
colosità di quest'essere: Gandalf il 
Grigio, il saggio stregone, intuisce il 
pericolo. Bisogna insomma trovare 
e catturare Gollum perché la sua 
presenza potrebbe modificare seria¬ 
mente il corso degli eventi! 

Da questo spunto letterario nasce il 
gioco che mi accingo a descrivere. 
Gollum è un gioco di strategia e non 
un ad venture-game e quindi non vi è 
in esso riprodotta alcuna vicenda in 
evoluzione. Il nome Gollum dato a 
questo gioco rappresenta l’obiettivo 
del gioco stesso ed è pertanto, il pic¬ 
colo omaggio ad un grande scritto¬ 
re. 
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numerici e spostamenti. 

za fra tasti 


Il gioco 


Il gioco consiste, come forse avre¬ 
te già intuito, nel trovare questo 
Gollum al più presto possibile, in 
particolare in non più di cinquanta 
mosse. All’inizio del gioco compare 
sullo schermo una matrice, analoga 
tanto per intenderci a quella della 
battaglia navale, formata però da 5 
righe e 9 colonne. Essa rappresenta 
la mappa delle porte di 45 gallerie 
(forse quelle di Moria!) in una delle 
quali si è nascosto Gollum. Al mes¬ 


saggio “Punto di partenza” che 
compare sul video in basso a sini¬ 
stra. dovete rispondere con l’indice 
(riga-colonna) della galleria scelta 
come inizio della vostra ricerca. Ef¬ 
fettuata la scelta, la porta della galle¬ 
ria si apre: se siete molto fortunati 
può anche darsi che Gollum si sia 
nascosto proprio li, nella galleria 
che avete scelto, ma la probabilità 
che ciò avvenga, come si può imma¬ 
ginare, è molto bassa. A questo pun¬ 
to avete ancora quarantanove mos¬ 
se per trovare Gollum. Come potre¬ 
te osservare dal monitor, subito do¬ 
po la scelta del punto di partenza 
spariscono dai bordi dello schermo 
le coordinate delle righe e delle co¬ 
lonne, perché a partire da questo 
momento vi dovete spostare usando 
i numeri secondo lo schema di figura 
1 che fa riferimento alla piccola ta¬ 
stiera numerica (key-pad) del Com¬ 
modore. I sessantaquattristi forse ri¬ 
scontreranno qualche difficoltà 
all’inizio, ma si tratterà solo di ac¬ 
quisire un po' di dimestichezza. Per 
ogni mossa potete spostarvi di una o 
due caselle (gallerie) componendo i 
singoli spostamenti nel modo che 
volete. 

Se lo spostamento è di una sola ca¬ 
sella allora dopo aver premuto il ta¬ 
sto numerico relativo bisogna batte¬ 
re Return per fare aprire la galleria. 
Se invece lo spostamento è doppio, 
la galleria raggiunta si apre senza 
che sia richiesta alcun’altra opera¬ 
zione. 

E Gollum intanto che fa? Natu¬ 
ralmente non se ne sta affatto fermo, 
ma cerca di sfuggire alla vostra cat¬ 
tura pur essendo ben più lento di 
voi. Infatti a Gollum sono consentiti 
solo gli spostamenti di una casella 
per volta. Per contro, Gollum, cono¬ 
sce la posizione del giocatore, men¬ 
tre il giocatore non sa dove si trovi 
Gollum. 


37 























Collimi 


Questo significa che, dopo aver 
completato la vostra mossa, Gollum 
si muove a sua volta, spostandosi in 
un'altra galleria (oppure restando 
nella stessa), cercando comunque di 
fare il possibile per non farsi trovare. 
Come ho appena detto, voi non sa¬ 
pete dove si trova Gollum però co¬ 
stui, nello spostarsi, lascia delle im¬ 
pronte nelle gallerie che attraversa, 
per cui se aprite la porta di una galle¬ 
ria per la quale Gollum è passato, le 
sue tracce vi condurranno verso di 
lui. In sintesi, ogni qual volta arriva¬ 
te davanti a una nuova galleria (ca¬ 
sella) e questa si apre, vi potete tro¬ 
vare di fronte a 3 circostanze possi¬ 
bili: (a) la galleria è vuota, e non vi 
sono tracce di Gollum; (b) la galleria 
è vuota ma vi sono delle impronte; 
(c) Gollum si trova proprio in quella 
galleria, per cui lo avete catturato e 
avete vinto. Se si verifica la circo¬ 
stanza (c), le 45 caselle scompaiono e 
compare invece, nella posizione in 
cui l’avete trovato, il volto stilizzato 
di Gollum, e il gioco termina. 

Per le circostanze (a) e (b) occorre 
invece fare riferimento alla figura 2 
che mostra tutto ciò che si può tro¬ 
vare all'interno di una galleria vuo¬ 
ta. 1 riquadri I e 2 fanno riferimento 
alla circostanza (a) e cioè la galleria è 
vuota e non vi sono tracce. Il riqua¬ 
dro I rappresenta una galleria a fon¬ 
do terroso, per cui l’assenza di tracce 
ci garantisce che Gollum “di qui non 
è passato”. Il riquadro 2 invece rap¬ 
presenta una galleria a fondo roccio¬ 
so. In questo caso se anche Gollum 
la ha attraversata, le sue impronte 
non sono rimaste. Il trovare una gal¬ 
leria di questo tipo quindi non è di 
alcun aiuto: l’unica cosa che si può 
dire è “potrebbe essere passato op¬ 
pure no”. Fortunatamente queste 
gallerie sono in numero ridotto ri¬ 
spetto a quelle terrose viste prima; in 
particolare, possono variare da un 
minimo di cinque ad un massimo di 
quindici unità, e vengono fissate in 
maniera casuale all’inizio di ogni 
partita. 

I riquadri dal 3 all’ 11 invece rappre¬ 
sentano tutti i possibili tipi di traccia 
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Figura 2. Riepilogo dei simboli che si 
possono trovare all’interno di una 
galleria, in seguito all'apertura della 
medesima. 


che si possono incontrare. In ognu¬ 
no di essi, i quadratini specificano la 
direzione e le frecce il verso dello 
spostamento di Gollum quando ha 
lasciato quella galleria per trasferirsi 
altrove. 

Quindi se trovate la: 

(3) è andato verso Ovest; 

(4) è andato verso Est: 

(5) è andato verso Nord; 

(6) è andato verso Sud; 

(7) è andato verso Nord-Ovest; 

(8) è andato verso Sud-Ovest; 

(9) è andato verso Sud-Est; 

(10) è andato verso Nord-Est. 

La (11) invece ha il significato di 
traccia confusa. Gollum decide di 
lasciarla, a sua discrezione, ma solo 
quando gli siete molto vicini, quan¬ 
do cioè siete arrivati a una casella 
che è adiacente a quella dove si trova 
lui, prima di spostarsi a sua volta. 
Se da una parte perciò con questa 
traccia Gollum cerca di “seminarvi” 
dall’altra vi fa capire indirettamente 
che gli siete “addosso”. 

Le tracce con il tempo svaniscono: le 


tracce confuse restano tali per una 
mossa soltanto, a partire da quando 
sono state lasciate; questo significa 
che se tornate sulla stessa casella alla 
mossa successiva, vi apparirà la 
traccia chiara e non più quella con¬ 
fusa, dello spostamento di Gollum. 
Ogni singola traccia, comunque, si 
cancella del tutto alla quarta mossa, 
a partire da quando la traccia stessa 
è stata lasciata. 

Inoltre ogni cinque mosse tre gal¬ 
lerie, fra quelle aperte, si richiudono, 
e ogni venti mosse si richiudono tut¬ 
te. Questo per facilitare un poco 
Gollum che, come è logico, non può 
entrare nelle gallerie aperte (sarebbe 
subito scoperto!), e che, di conse¬ 
guenza, resterebbe troppo limitato 
nei movimenti. 

Una volta finita la partita, sia che 
siate riusciti a trovare Gollum sia 
che non ci siate riusciti, potete rive¬ 
dere, se volete, il riepilogo delle mos¬ 
se vostre e di Gollum e cercare di 
capire il criterio con il quale ha cer¬ 
cato di sfuggirvi. 


L’algoritmo 

Il gioco tratta ancora una volta 
della sfida tra l’Uomo e il Compu¬ 
ter. L’uomo fa la parte del buono e il 
calcolatore, bontà sua, presta il suo 
freddo cervello cablato al cattivo e 
pericoloso Gollum. Nel paragrafo 
precedente abbiamo visto il gioco 
nei suoi aspetti generali e ne abbia¬ 
mo definito le regole, quelle regole 
che fissano pertanto i limiti delle a- 
zioni del giocatore, del computer nel 
ruolo di avversario e del computer 
nel ruolo di gestore delle parti acces¬ 
sorie. come l’aggiornamento delle 
tracce, l’apertura e la chiusura delle 
gallerie, eccetera. Quello che non si è 
detto, però, è come si gioca, vale a 
dire con quale criterio si deve impo¬ 
stare la ricerca di quella specie di 
mostriciattolo descritto nel primo 
paragrafo. Di criterio di gioco prefe¬ 
risco parlare nel paragrafo riservato 
all’introduzione all’algoritmo, pro¬ 
prio per evidenziare che non essendo 
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Gollum 


Gollum un gioco d’azione, non esi¬ 
ste un criterio unico per impostare la 
propria strategia. Questo discorso, 
però, va esteso anche al comporta¬ 
mento di Gollum gestito, come si è 
detto, dal calcolatore che, in questo 
caso, si trova quindi a dover affron¬ 
tare un problema non deterministi¬ 
co. Se Gollum, infatti, seguisse ba¬ 


nalmente una logica rigorosa, sareb¬ 
be molto facile per il giocatore, indi¬ 
viduarla e vincere ogni partita. 

Le tre grandezze che pesano sul 
cosiddetto “criterio di gioco” sono 
la logica, l'astuzia e l’inganno, e val¬ 
gono sia per l’inseguitore che per 
l’inseguito. Tuttavia, delle tre, solo 
la prima coinvolge procedure di na¬ 



tura numerica, mentre le altre due 
devono in qualche modo essere si¬ 
mulate. La difficoltà dell’algoritmo 
di risposta del calcolatore, che rap¬ 
presenta pertanto la mente del perfi¬ 
do Gollum risiede proprio nel riusci¬ 
re a dare il giusto peso a ogni fattore: 
se, infatti, prevalesse il fattore razio¬ 
nale, il comportamento di Gollum 
diventerebbe prevedibile, se per con¬ 
tro prevalesse quello, per cosi dire, 
istintivo, Gollum potrebbe facil¬ 
mente cadere fra le braccia del suo 
inseguitore. 

Il programma 

Il programma, che verrà presenta¬ 
to nella seconda parte, naturalmente 
non contiene solo l’algoritmo “intel¬ 
ligente” che fa ragionare Gollum. 
Esso è composto da una serie di mo¬ 
duli, o sottoprogrammi, di natura 
differente, la cui interazione e scam¬ 
bio reciproco di informazioni, pro¬ 
duce il funzionamento globale e ne 
garantisce l’interazione, a sua volta, 
con l’utente. 

La logica e il compito di taluni sotto¬ 
programmi talvolta sono banali ma, 
comunque, sempre indispensabili. 

Il programma nel suo complesso è 
illustrato in figura 3, dove, come si 
può vedere, la parte “intelligente”, 
rappresentata dal blocco “Gollum si 
muove”, occupa solo una piccola 
parte dell’insieme. 

Modalità di rappresentazione 
delle informazioni 

1 dettagli per quanto riguarda le 
istruzioni inerenti le parti, per cosi 
dire, accessorie, verranno dati nella 
descrizione del listato BASIC. E’ co¬ 
munque opportuno, credo, premet¬ 
tere le modalità e le strutture dei 
dati, anche perchè su queste stesse 
strutture opererà Gollum nel prepa¬ 
rare la propria mossa. 

Viene spontaneo pensare che tutto 
ciò che farà riferimento alle gallerie 
andrà strutturato come le gallerie 
stesse e cioè a matrice 9x5. Questa 
infatti è la scelta che è stata fatta e 
credo si sia rivelata assai comoda in 
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CARATTERISTICA 

MATRICE 

STATO 

CODICE 

SOTTOCAMPO 

STATO 

CODICE 

Situazione 

SA 

Aperta 

1 




Chiusa 

0 




Tipo 

SS 

Terrosa 

0 




Rocciosa 

1 




Gollum: 

SC 

C’è 

5 




Non c'è 
ma è 
passato 

1-4 

DR 

Verso sud-ovest 

1 

Verso sud 

2 

Verso sud-est 

3 

Verso ovest 

4 

Verso est 

6 

Verso Nord-Ovest 

7 

Verso nord 

8 

Verso nord-est 

9 

Non c'è 
c non è passato 

0 





Figura 4. Quadro riassuntivo delle matrici principali e codifica delle informazioni relative. 


fase di implementazione. Per i cono¬ 
scitori dei linguaggi tipo Pascal, si 
potrebbe dire che il complesso delle 
45 gallerie costituisce un unico gran¬ 
de record, i cui campi sono gli array 
di array (o matrici) impiegati invece 
nel programma BASIC come entità 
autonome. In realtà il concetto di 
record è più efficace perché permette 
di sottolineare come ogni campo 
quantifichi i diversi aspetti dello 
stesso oggetto. 

L’array di array SC è quello che 
stabilisce in quale casella si trova 
Gollum. Se ad esempio Gollum si è 
nascosto nella galleria di coordinate 
3,4 la corrispondente posizione di 
SC vale 5. Alla mossa successiva, 
come si vedrà nella descrizione det¬ 
tagliata del programma, Gollum si 
sposterà e la vecchia casella verrà 
decrementata di una unità in SC. E' 
facile intuire che quella casella (3,4) 
tornerà a 0 in SC dopo quattro mos¬ 


se e che quindi questo sarà il mecca¬ 
nismo che permetterà non solo di 
sapere se Gollum c’è o non c’è in una 
determinata galleria, ma anche di 
gestire in maniera appropriata l’ag¬ 
giornamento e l’eliminazione delle 
tracce. 

Lo schema delle matrici più impor¬ 
tanti lo possiamo vedere in figura 4. 
Come si vede dallo schema, la matri¬ 
ce DR interviene quando il riquadro 
su cui il giocatore si è posizionato ha 
un valore in SC che è compreso tra 1 
e 4, precisando la natura della trac¬ 
cia che è un numero compreso tra 1 e 
9 con l'esclusione del 5. La posizione 
del giocatore nell’ambito delle galle¬ 
rie. invece, non richiede l’uso di una 
matrice: come si vedrà nella descri¬ 
zione del programma, la posizione 
corrente del giocatore viene data da 
due variabili che di volta in volta 
fissano i numeri interi cui corrispon¬ 
dono la riga e la colonna. 


La mente di Gollum 

Per chi si aspettava un Gollum in 
formato fiaba, l’aver constatato che 
costui non è altro che il numero 5 
che si muove fra alcuni registri di 
una RAM, raggruppati in una gri¬ 
glia dallo squallido nome SC, rap¬ 
presenta senz'altro una grossa delu¬ 
sione. E’ però pur sempre affasci¬ 
nante pensare che mediante l’utiliz¬ 
zo di numeri, operazioni numeriche 
e un pizzico di casualità si riesca a 
creare qualcosa che, pur essendo 
molto lontano dall’uomo, ha tutta¬ 
via dell’uomo alcune piccole caratte¬ 
ristiche essenziali. 

Il criterio secondo cui Gollum cer¬ 
ca di sfuggire alla vostra cattura è 
schematicamente indicato in figura 
5, che rappresenta il ragionamento 
seguito mossa per mossa. Il calcolo 
della pericolosità della posizione è 
naturalmente qualcosa che riguarda 
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la vicinanza di Gollum dal suo inse¬ 
guitore. La valutazione di un com¬ 
portamento tipico del giocatore ri¬ 
guarda il cercare di conteggiare qual 
è la mossa che costui predilige nelle 
due circostanze possibili e cioè, 
quando non sono state ancora tro¬ 
vate. o sono state smarrite, le tracce 
di Gollum, oppure quando sono sta¬ 


te trovate. 

La valutazione di un comportamen¬ 
to anomalo è qualcosa di più delica¬ 
to e, in questo caso, la procedura 
seguita da Gollum è suscettibile di 
ampie critiche. In realtà si parla di 
comportamento anomalo, o strano, 
quando si ritiene che il giocatore stia 
cercando in qualche modo di ingan- 



Figura 5. Schema a blocchi del ragionamento seguito da Gollum per sfuggire 
alla cattura. 




nare Gollum: in molte circostanze è 
sicuramente difficile capire, per e- 
sempio. se il giocatore sta cercando 
di “fare il furbo” oppure se ha perso 
le tracce per un errore vero e pro¬ 
prio. In una circostanza tuttavia, 
credo che la valutazione di un com¬ 
portamento sospetto si avvicini mol¬ 
to al vero e cioè quando il giocatore 
resta per un numero “esagerato” di 
mosse nella stessa zona. Questo, e lo 
si è verificato sperimentalmente, è il 
comportamento tipico di chi ritiene 
che Gollum si muove solo con criteri 
che lo portano a massimizzare la di¬ 
stanza dal suo inseguitore. In questo 
caso infatti effettivamente Gollum 
avrebbe tutto il tempo per andarse¬ 
ne dalla parte opposta a quella in cui 
si trova il giocatore, e rimanere li: 
sarebbe molto facile a questo punto, 
per il giocatore, sfruttando la mag¬ 
giore velocità rispetto a quella di 
Gollum, spostarsi rapidamente e 
bloccarlo. La valutazione di questo 
tipo di comportamento cerca pro¬ 
prio di prevenire l'insorgere di una 
simile circostanza. 

Effettuate queste prime operazio¬ 
ni, inizia il ciclo di valutazione vero e 
proprio. Per ogni mossa possibile, 
cui corrisponde la variabile V che ha 
lo stesso significato di quanto visto 
in figura 1. con l’aggiunta del nume¬ 
ro 5 che significa “stai fermo”, viene 
calcolata la convenienza, memoriz¬ 
zata, e quindi, al termine del ciclo 
estratta la più alta. Il significato del 
test “spostamento consentito" è di 
facile comprensione: se Gollum si 
trovasse, ad esempio nella casella 
superiore sinistra (di coordinate 1.1) 
è chiaro che le sue possibili mosse 
non sarebbero tutte e 10 ma, suppo¬ 
nendo chiuse tutte le gallerie circo¬ 
stanti (ricordiamo che Gollum non 
può entrare nelle gallerie aperte), so¬ 
lo la 2, la 3, la 5 e la 6. Esaminiamo 
quindi brevemente il significato dei 
cinque blocchi che compaiono in se¬ 
guito. 

• Fattori di minimizzazione della 
pericolosità. 

Questi fattori hanno un peso tanto 
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Collimi 


maggiore quanto più ravvicinata è la 
distanza fra Gollum e il suo insegui¬ 
tore e sono quindi relativi alla mu¬ 
tua distanza fra i due. Esiste, infatti, 
attorno alla posizione del giocatore 
quella che potremmo chiamare “zo¬ 
na di raggiungibilità” all’esterno 
della quale Gollum non può essere 
comunque catturato in una sola 
mossa. 

• Fattori relativi al comportamento 
del giocatore. 

Derivano dai controllii eseguiti all'i¬ 
nizio dello schema a blocchi e hanno 
enorme importanza soprattutto 
quando per Gollum non è comun¬ 
que possibile uscire, in una sola 
mossa, dalla zona di raggiungibilità 
vista prima. 

• Fattori relativi alla possibilità di 
non lasciare tracce. 

La procedura secondo cui Gollum 
decide di lasciare tracce confuse è del 
tutto casuale. Non casuale è, invece, 
la predilezione da parte di Gollum 
delle gallerie a fondo roccioso, dove, 
come si è visto nel paragrafo “Il gio¬ 
co", le sue tracce non rimangono. 

• Fattori relativi ai gradi di libertà 
della posizione. 

Gollum selezionando la convenien¬ 
za relativa a ciascuna possibile nuo¬ 
va posizione deve anche tener conto 
della modalità che verrebbe ad ac¬ 
quistare una volta insediatosi nella 
nuova galleria. Gollum infatti deve 
garantirsi il maggior numero possi¬ 
bile di vie di fuga. 

Ad ogni galleria pertanto vengo¬ 
no associati un certo numero di 
“gradi di libertà” (termine forse im¬ 
proprio ma che chiarisce il significa¬ 
to) che dipende solamente dalle 
coordinate della galleria e non dallo 
stato delle gallerie circostanti (aper¬ 
te o chiuse) e questo, ancora una 
volta, per non rendere troppo preve¬ 
dibile il comportamento di Gollum 
che, come si è detto anche all’inizio, 
non può entrare nelle gallerie aperte. 
Lo schema dei gradi di libertà, con la 
relativa parametrizzazione numeri¬ 
ca, il cui uso si vedrà nella descrizio¬ 
ne del programma, è illustrato in fi¬ 
gura 6. 
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Figura 6. Schema della 
pari grado di libertà e rela 

V. 1 ^ / ~ 

uldivisione della mappa in zone aventi caselle 
tiva parametrizzazione numerica. 
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• Fattori di imprevedibilità. 

I fattori di imprevedibilità sono dei 
parametri il cui peso è funzione della 
pericolosità della posizione, del rico¬ 
noscimento delle tracce da parte del 
giocatore, e altri che vanno a som¬ 
marsi alla convenienza relativa a 
ciascuna mossa consentita. 

Conclusioni 

La descrizione del funzionamento 
di un programma ha uno scopo di¬ 
dattico ed è fatta per chi non si vuole 
fermare al risultato, ma ne vuole co¬ 
noscere i meccanismi; eppure, per un 
gioco come questo, dove il computer 


segue un procedimento particolare 
che gli consente di raccogliere la sfi¬ 
da del suo avversario, sarebbe me¬ 
glio non dire nulla. Chi, insomma, 
fosse interessato al gioco solo per 
divertimento non dovrebbe proba¬ 
bilmente leggere l'articolo, ma cer¬ 
care di desumere, piuttosto, il com¬ 
portamento di Gollum giocando li¬ 
na partita dopo l'altra. Comunque, 
anche conoscendo i criteri logici 
fondamentali, non è sempre facile 
catturare Gollum: in questo senso 
devo dire che il programma ha dato 
dei risultati soddisfacenti. Esistono 
sicuramente dei “punti deboli" e co¬ 
me ogni cosa anche il programma 
nel suo complesso può certamente 
essere migliorato; chi volesse appor¬ 
tare delle modifiche alla parte “intel¬ 
ligente" deve tuttavia tener conto 
dei tempi di risposta: Gollum infat¬ 
ti, pur essendo un gioco di strategia, 
tratta comunque di un inseguimen¬ 
to. 

Il tempo di risposta attuale (su 
Commodore 4032) è di circa 4,35 s 
con oscillazioni di + 0,20 s e pur non 
essendo sicuramente in assoluto un 
tempo elevato, chi ha provato il pro¬ 
gramma lo ha spesso giudicato, co¬ 
munque, “un po’ alto”. 
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Baskit 

per Spectrum 


Aggiungiamo nuovi 
comandi ài BASIC 
del Sinclair 


di Stefano Cenati 


E cco qui un programma di 
utility che farà la gioia 
(speriamo) di molti pro¬ 
grammatori BASIC facendo rispar¬ 
miare loro tempo prezioso. 

I cinque nuovi comandi che questo 
tool-kit mette a disposizione sono 
ottenibili premendo, in modo Grap¬ 
hics, i tasti V, W, X, Y e Z: appari¬ 
ranno le keyword indicate in figura 
1 . 

Queste nuove pseudo-istruzioni, ov¬ 
viamente, non si comportano come 
quelle appartenenti al BASIC resi¬ 
dente, ma hanno alcune limitazioni: 
non possono infatti essere inserite in 
un programma, essendo utili solo 
come comandi diretti; se viene pre¬ 
muto il tasto corrispondente e la li¬ 
nea di Edit non è completamente 
vuota, la keyword non appare. 

E’ utile notare che questi comandi 
“completano” in un certo senso la 
tastiera multi-funzione della mac¬ 
china in questione, poiché vengono 
sostituiti ad altri già ottenibili in Ex- 
tended mode. 

Baskit è disponibile sia per la versio¬ 
ne 16 Kbyte che per il 48 Kbyte. 
Durante il suo funzionamento, cioè 
quando è reso attivo con Randomi- 
ze Usr 64000 (31230 per il 16 Kbyte), 
è assolutamente necessario, pena il 
blocco o reset del sistema, mantene¬ 
re la RAMtop abbassata e non alte¬ 
rare per alcun motivo i byte che co¬ 
stituiscono tale programma. 

Baskit è compatibile con l’utility di 
conversione esadecimale preceden¬ 


temente proposta dallo stesso auto¬ 
re. cioè possono essere caricati insie¬ 
me ed utilizzati senza ulteriori com¬ 
plicazioni: deve però essere discon¬ 
nessa l’Interface 1, se presente. 

Passiamo ora alle modalità di ca¬ 
ricamento: occorre tener presente 
quale tipo di Spectrum si sta adope¬ 
rando e digitare i listati corrispon¬ 
denti. 

Per prima cosa è necessario avere 
una copia su nastro del listato uno 
oppure due, a seconda della versio¬ 
ne, salvandolo poi con un: 

SAVE “Baskit 48 K” LINE I 
o: 

SA VE “Baskit 16 K” LINE 1 

si dà un New e si inizia a digitare il 
listato tre o quattro. 

Dopo averlo fatto partire con Run 
occorre inserire uno per uno i codici 
di figura 2 oppure 3: al termine, con 
un Beep di nove secondi verrà pro¬ 
dotto un file di byte chiamato “Ba- 
scode”, da registrare immediata¬ 
mente dopo “Baskit 48 Kbyte” (o 16 
Kbyte!) e verrà chiesto di riavvolge¬ 
re il nastro per la verifica. 

Quando poi Baskit verrà ricaricato 
appariranno sullo schermo gli indi¬ 
rizzi di chiamata per l’attivazione e 
la disattivazione. 

Dump 

Questo comando permette di ave¬ 
re listate sul video tutte le variabili 
BASIC in memoria in quel momen¬ 
to. 

E’ particolarmente utile usato du¬ 
rante la messa a punto di lunghi pro¬ 
grammi, per avere sempre sotto con¬ 
trollo la situazione della memoria. 
Premendo dunque Graphics-V, e 
successivamente enter, verranno 
stampati i nomi e i rispettivi valori di 
variabili numeriche, stringhe o di ci¬ 
cli For-Next. In quest’ultimo caso 


dopo il nome verranno stampate 
delle virgolette (ChrS 126), proprio 
ad indicare che è stata trovata una 
variabile di controllo. 

Se dovessero verificarsi inconve¬ 
nienti, come K-Invalid Colour o co¬ 
se simili, prima di Dump si può dare 
un Pause 1. 

Qualora le variabili da stampare oc¬ 
cupassero più di una pagina video, ci 
si imbatterà nell’usuale richiesta di 
Scroll, identica a quella ottenibile 
con List. 

E' importante notare che quando 
un qualsiasi comando di questo 
tool-kit appare sul video la tastiera 
percepisce solo la pressione del tasto 
Enter o Delete, rispettivamente ese¬ 
guendo o cancellando il Token. 

Drem 

E’ la contrazione di “Delete all 
Rem lines” e serve a cancellare dal 
programma BASIC tutte le linee che 
iniziano con un ChrS 234 (cioè il 
codice ASCII di Rem). 

Questo comando può essere utiliz¬ 
zato per snellire notevolmente pro¬ 
grammi largamente commentati: 
occorre tuttavia prestare molta at¬ 
tenzione prima di usare il comando 
Drem, poiché potrebbero essere pre¬ 
senti routine in linguaggio macchina 
o blocchi di byte in qualche Rem che 
andrebbero persi. 

Potrebbe capitare anche di trovare 
delle linee particolarmente ostinate, 
che non accennano a scomparire: 
ciò è dovuto al fatto che per essere 
cancellata la linea deve avere come 
primo carattere il codice di Rem. Un 
invisibilissimo Inverse 0 o Brighi 0, 
digitato tra il numero di linea e la 
keyword, è capace di evitare l’inter¬ 
cettazione da parte di Baskit. 

Dopo aver fatto il suo lavoro Drem 
produce un listing automatico non 
volatile. 
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Baskit 
per Spectrum. 

Eventuali modifiche 

Un’interessante proposta potreb¬ 
be essere quella di trasformare il co¬ 
mando Drem in un’istruzione capa¬ 
ce di cancellare tutte le linee che ini¬ 
ziano con un determinato carattere, 
per esempio per cancellare tutte le If 
statement a istruzione singola o i 
Chr$ 32 iniziali: nulla di più facile è 
modificare la locazione 64799 
(32029 per i sedicisti!), che normal¬ 
mente contiene 234, e farle assumere 
il valore del codice ASCII da noi 
scelto con Pokc 64799, Code “carat¬ 
tere iniziale”. 

P-Lcnght 

Significa Print Program Lenght e 
serve a stampare la lunghezza, e- 
spressa in byte, del programma BA¬ 
SIC attualmente in memoria, esclu¬ 
se le variabili: non è quindi la stessa 
cosa che sapere quanti byte si salva¬ 
no con Save (provare, con P- 
Lenght = 0, a dare un Dim a ( 1000) e 
poi un Save...). 

L’esecuzione di una qualsiasi di 
queste pseudo-istruzioni resetta lo 
Stack ed il Gosub-Stack (la catasta 
dei Gosub...), perciò prestare atten¬ 
zione. 

Line 

Eccoci finalmente giunti alla pre¬ 
sentazione della “perla” di questo 
articolo: l’istruzione Line, già cono¬ 
sciuta in altri BASIC con il nome 
Auto o Sequence. 

Suo scopo è quello di evitare che il 
programmatore continui a digitare 
il numero di linea in fase di copiatu¬ 
ra di un programma, una volta sta¬ 
bilita la linea di partenza e l’incre¬ 
mento. 

Per fare ciò occorre entrare in modo 
Graphics, premendo Caps-Shift-9 e 
poi Y: apparirà Line. 

La sintassi di questo comando è la 
seguente: 

LINE start,increment ( -I- ENTER) 
dove start e increment sono numeri 


interi positivi compresi tra I e 9999. 
Dopo avere premuto Enter non ap¬ 
parirà il solito 0 Ok, 0:1, bensì il 
cursore posizionato immediatamen¬ 
te dopo un numero di linea, per ora 
ovviamente uguale a start: a questo 
punto si può iniziare a digitare il 
programma, e dopo ogni linea en¬ 
trata verrà stampato il numero au¬ 
mentato di increment. 

Per esempio. Line 10,10 dà origine 
alle linee: 10. 20, 30, 40, 50. 60, 70... 
Per uscire da questo loop è necessa¬ 
rio premere Caps-Shift e Break pri¬ 
ma che il listing automatico finisca: 
ne verrà prodotto un altro per avvi¬ 
sare che si sta uscendo dal comando 
Line, ed infine riapparirà il cursore, 
senza numero di linea. 

Se il listing è molto veloce, o perché 
esso è composto da poche linee o 
addirittura P-Lenght = 0, premere 
Break immediatamente dopo Enter 
è un’impresa: a questo scopo è utile 
inserire una o più Rem fittizie per 
rallentarlo, premere Break in tempo 
per uscire e poi dare un Drem... 

Altre applicazioni dei comando Line 

Se fosse necessario cancellare tut¬ 
te le linee comprese, per esempio, tra 
1025 e 2061, e la distanza tra le linee 
è irregolare (1025, 1026, 1101, 1150, 
I152...0), andare a cancellarle una 
per una risulta un compito piuttosto 
lungo e noioso. 

La nostra Line permette invece di 
eseguire questo lavoro senza pesare 
sul programmatore: se infatti, rife¬ 
rendoci all’esempio precedente, si dà 
un Line 1025,1 e si tiene poi premuto 
Enter per una manciata di minuti, 
quando nella zona degli input appa¬ 
rirà 2061 le linee da cancellare non 
esisteranno più. 

Un altro utile accorgimento durante 
la stesura di un programma consiste 
nell’avere un incremento delle linee 
negativo - in poche parole, un decre¬ 
mento, - ma se si prova un Line 
9000,-10, si ottiene un errore; è tut¬ 
tavia possibile aggirare l’ostacolo. 

Come molti avranno sicuramente 



notato, se il numero supera il 9999, 
si riparte da zero, poiché il riporto 
della quarta cifra viene perso. 

In questo modo l'incremento può 
essere concepito, oltre che come tale, 
come l’opposto del suo complemen¬ 
tare a 10.000. 

Per esempio, dal momento che 
10=10000-9990. Line Start,9990 è 
l’equivalente di Line Start.-10: pro¬ 
vare per credere! 

Fre 

Questa funzione si comporta in 
maniera analoga a PI e Rnd. perciò 
per poterla utilizzare occorre preme¬ 
re Print, entrare in Graphics e pre¬ 
mere Z ( +Enter). 

Verrà così visualizzato il numero dei 
byte su RAM disponibili in quel mo¬ 
mento. 

Se si prova a dare ripetutamente 
Print Fre, ci si accorge che il numero 
stampato non è sempre lo stesso, co¬ 
me dovrebbe invece essere: oscilla 
infatti di ±3 byte. 

Queste locazioni che appaiono e 
scompaiono sono quelle utilizzate 
dalla routine di servizio all'interru¬ 
zione mascherabile. che viene chia¬ 
mata ogni venti millisecondi (1/50 di 
secondo). 

Alcune note tecniche 

Come si può notare dal disassem¬ 
blato di figura 4, il funzionamento di 
Baskit è basato suli'interrupt mode 
numero due, il quale permette all’u¬ 
tente di posizionare il vettore della 
routine di interrupt in qualsiasi loca¬ 
zione di memoria, indicata dal regi¬ 
stro I della CPU come byte alto e, in 
assenza di periferiche interrompenti, 
$FF come byte basso. 

Per questo motivo occorre prestare 
una particolare attenzione nell'ac- 
certarsi che la RAMtop si mantenga 
abbassata al valore settato dai listati 
uno o due, altrimenti se la I.R. viene 
modificata dallo Stack di sistema o 
da altri agenti, si avrà un apocalitti¬ 
co Crash in meno di tre centesimi di 
secondo!! ■ 
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per Spectrum_ 


SE PREMETE... 

INVECE DI... 

VEDRETE...! 

V 

RND 

DUMP 

w 

INKEYS 

DREM 

X 

PI 

P-LENGHT 

Y 

FN 

LINE 

Z 

POI NT 

FRE 


Figura 1. Ecco come Baskit modifica la tastiera midti- 
funzione del vostro Sinclair. 


Figura 2. Codici decimati da 
inserire con il listato 3, ver¬ 
sione 48 Kbyte. 


54.000 

64001 

54002 

64003 

64004 

64005 
54006 
64007 

64006 
54009 

64010 

64011 
54012 
64013 

54014 

54015 
64016 
54017 
64013 

54019 

54020 

64021 

64022 

64023 

54024 

54025 

54026 
64027 
64026 
64029 

54030 

54031 

54032 

64033 

64034 

64035 

54036 

54037 

64038 

64039 

54040 

54041 

64042 

64043 
54044 

64045 

64046 
6404 ? 
64048 


213 

254 

24 

123 

245 

229 

197 

213 

42 

120 

92 

35 

34 
120 
92 
125 
180 

32 
3 

253 

52 

64 

205 

191 

2 

42 

61 

92 

78 

35 
70 

33 
127 
16 
167 
237 
66 
194 
77 
0 

253 

203 

1 

110 

202 

77 

0 

253 


64049 

64050 

64051 
54052 
64053 
54054 
64055 

54056 

54057 

64058 

64059 

64060 

64061 

64062 

64063 

64064 
54065 

64066 

64067 

54068 

54069 
540 70 
54071 

64072 

64073 
64074- 
64075 
64075 

64077 

64078 

64079 

64080 

64081 

64082 
54083 

64084 

64085 
54086 
64037 
64088 
84089 
54090 

64091 

64092 

64093 
54094 

64095 

64096 

64097 

64098 

64099 
54 100 
64101 


64102 

64103 


126 

7 

254 

2 

194 

77 

0 

253 
203 
55 
110 
194 
77 
0 

58 

8 

92 

214 

165 

218 

77 

0 

254 
4 

32 

20 

42 

89 

92 

126 

254 

245 

194 

77 

0 

35 

125 
254 

13 
194 
77 
0 

14 
4 

24 

10 

79 

42 

89 

92 

126 
254 
13 


194 

77 


64104. 

0 

64131 

0 

54105 

6 

54132 

205 

54106 

0 

64 183 

59 

64107 

33 

o4 184 

45 

64 108 

19 

64185 

254 

64 109 

255 

64 186 

44 

54110 

9 

64 187 

194 

54111 

9 

64188 

130 

54112 

78 

64189 

251 

54113 

35 

54190 

205 

64114. 

70 

64191 

116 

64115 

225 

64192 

0 

54116 

22o 

64193 

205 

54117 

225 

64194 

59 

64118 

225 

64195 

45 

64119 

33 

64196 

254 

64120 

172 

54 197 

13 

54121 

16 

64 Ì98 

194 

64122 

227 

54199 

130 

64123 

197 

64200 

251 

64 124 

253 

64201 

205 

54125 

203 

64202 

162 

64 126 

1 

64203 

45 

64127 

174 

64204 

213 

64128 

62 

64205 

134 

64129 

63 

64206 

251 

54130 

237 

64207 

205 

64131 

71 

64208 

163 

64132 

237 

64209 

251 

54133 

86 

64210 

210 

64134 

251 

54211 

134 
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Figura 3. Codici decimali da 
inserire con il listato 4. ver¬ 
sione 16 Kbvte. 
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Il Jacksomano sceglie 
trai 14 top... 




Jackson: una gronde, esauriente scelto di periodici per soper tutto ciò 
che è indispensabile su elettronico, informatico e personal computer. 
Videogiochi, la guida indiscussa al fantastico mondo dei videogames,- 
Home Computer, la rivista del computer in casa,- 
Personal Software, la rivisto dedicata al software dei personal 
computer; 

Bit, la prima rivisto europea di personal computer, software, accessori, lo 
più prestigiosa e più diffuso in Italia,- 

Informatica Oggi, il punto di riferimento obbligato per chi si occupa di 
sistemi EDP e di Office Automation; 

PC Magazine, la prima rivista italiana dei sistemi MS-DOS, Personal 
Computer IBM e compatibili; 


Personal O, la rivista indipendente per gli utenti di PC Olivetti; 
Compuscuola, la rivista di informatica nello didattica, per lo scuoio 
italiana.- 

Telecomunicozioni Oggi, lo rivista di telecomunicazioni e telematico,- 
Automazione Oggi, il mensile della nuova automazione industriale; 
Elettronica Oggi, la più autorevole rivista di elettronico professionale, 
strumentazione e componenti; 

L'Elettronica, il quindicinale di politica industriale, componentistica, 
informatica e telecomunicazioni; 

Elektor, lo più diffusa rivista europea di applicazioni e progettazione 
elettronica. 

Strumenti musicali, il periodico di strumenti musicali e computer-music. 


r 


Per sottoscrivere abbonamenti compilare il fogliando e inviare in busto chiuso a: 


Gruppo Editoria!* Jackson Sjt.I. - Via Rosellini, 12 - 20124 Milano, allegando assegno o fotocopia della ricevuta di 
versamento con vaglia postale intestato a GRUPPO EDITORIALE JACKSON - MILANO. 


□ Si, desidero sottoscrivere un abbonamento a: 

□ Videogiochi 11) n.l L 30.000 anziché L 38.500 

□ Home Computer III n.l L 31.500 anziché L 38.500 

□ Pérsonol Software (11 n.l L 34.000 anziché L 44.000 

□ Bit Ili n.) L 43.000 anziché L 55.000 

□ Informatico Oggi 111 n.l L 31.000 anziché L 38.500 

□ PC Magazine 110 n.l L 40.000 anziché L 50.000 

□ Personal O 110 n.l L 35.000 anziché L 40.000 


O Compuscuola 19 n.l l 15.000 anziché L 18.000 

□ Telecomunicazioni Oggi 110 n.l L 28.000 anziché L 35.000 

□ Automazione Oggi (Il n.l L 30.500 anziché L 38-500 

□ Elettronica Oggi 111 n.l L 36.000 anziché L 44.000 

□ L'Elettronica (22 n.l L 44.000 anziché L 55.000 

□ Elektor (12 n.l L 29.000 anziché L 36.000 

□ Strumenti Musicali 110 n.l L 24.000 anziché L 30.000 
Attenzione per abbonamento oll'estero le tariffe devono essere 
aumentate del 50% 


E c’é un super-risparmio a dii si abbona a due o più riviste. 

Tutti coloro che sottoscrivono l'abbonamento a due o più rivisle godono di un prezzo ulteriormente agevolato, come appare nello seguente tabeliino. 
Esempio^ Bil+lnlormatico Oggi L 43.O0O+3L00O-74.O0O meno L 2.000-L 72.000 


Abbonamento 

a 8 riviste L 20.000 in meno sullo sommo degli 8 prezzi d'abbonamento 

a 2 riviste L 2.000 in meno sullo sommo dei 2 prezzi d'obbonamento 

o 9 riviste L. 25.000 in meno sullo sommo dei 9 prezzi d'obbonomento 

a 3 riviste L 4.000 in meno sullo sommo dei 3 prezzi d'obbonomento 

o 10 riviste L 30.000 in meno sullo sommo dei 10 prezzi d'abbonamento 

a 4 riviste L 7.000 in meno sullo sommo dei 4 prezzi d'obbonamento 

a 11 riviste L 35.000 in meno sullo somma degli 11 prezzi d'abbonamento 

a 5 riviste L 10.000 in meno sullo somma dei 5 prezzi d'abbonamento 

o 12 riviste L 40.000 in meno sullo sommo dei 12 prezzi d'obbonomento 

a 6 riviste L 13.000 in meno sulla somma dei 6 prezzi d'obbonamento 

o 13 riviste L 44.500 in meno sulla sommo dei 13 prezzi d'abbonamento 

o 7 riviste L 16.000 in meno sullo sommo dei 7 prezzi d'abbonamento 

o 14 riviste L 50.000 in meno sullo sommo dei 14 prezzi d'obbonamento 


□ Allego ossegno n°_dello Bonca_ 

O Ho etfeHuolo versamento sul c/c postole n. 11666203 intestato o Jockson - Milano di cui 
allego fotocopia dello ricevuto 
O Voglio postale e allego fotocopio ricevuto 

Nome_ 

Cognome_ 

Azienda_ 

CAP._Città_ 

Vìa_ 



GRUPPO 

EDITORIALE 

JACKSON 

San Francisco»Londra.Milono 
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Figura 4. Disassemblalo di 
Baskit, versione 4M Kbyte. 
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7C38 

7C3B 

7C30 

7C40 

7C42 

7C44 

7C47 

7C40 

7C4E 

7C51 

7C54 

7C87 

7C58 

7CS0 

7C5B 

7C50 

7C60 

7C64 

7C65 

7C68 

7C6B 

7C6D 

7C6E 

7C6F 

7C72 

7C7S 

7C78 

7C7B 

7C7E 

7C81 

7C84 

7C86 

7C89 

7C8D 

7C91 

7C94 

7C97 

7C99 

7C9C 

7C9E 

7CO0 

7C03 

7CR6 

7C07 

7C08 

7C0B 

7C0C 

7C0E 

7C0F 

7CB3 

7CB6 

7CB8 

7CBB 

7CBF 

7CC0 

7CC3 

7CC6 

7CC8 

7CC9 

7CC0 

7CC0 

7CD0 

7CD3 

7CD6 


..cali 0D4D 

702F 

7030 


..ld a.04 

70 

07 

18 

70 


..cali 7D95 

7031 

23 

00 

. .ld (iy +07) ,00 
..cali 18F3 

7032 

7033 

19 

FB 


..cali 7DR6 

7034 

20 


..cp 0C 

7037 

07 

7E 


..jp Z,7EBE 

7038 

EO 



7030 

Eb 



..jr nz ,7C38 

7D3B 

20 

9B 

6E 

CB 

RF 

IR 

00 

70 

OD 

30 

00 

1F 

00 


..Cali 7D9B 

7030 




7D3F 

co 

«16 

..bit 0, (iy+30) 
..cali nz,0DRF 

7D42 

7D45 

CD 

hF 


..cali 1FIR 

7D46 

co 


. . ld hi;0000 

7049 

co 



704C 

C3 

42 

02 

01 

36 



. .Sbc hi,bc 
. .push h l 

704F 

7052 

70S5 

CO 

co 

co 

16 

52 


..cali 1601 

7058 

OF 

05 

..ld (iy 452),05 

7059 

7DSC 

co 

FD 

2B 

E3 

0D 

2D 

2D 


..cali 2D2B 

7D60 

FO 


..cali 2DE3 

7064 

CD 


..ld a,OD 

7067 

CD 



..rs t 10 

7D6R 

FE 





706C 

OH 

oi 

81 

80 

C4 

98 

40 

6E 

02 

95 

36 

CB 

F3 

06 

OC 

BE 

00 

F4 

9B 

53 

16 

70 

16 

7E 

70 

00 

00 


..cali 1601 

706F 

ht 


..cali 7DB1 

7071 

20 



7073 

CD 

... 

. .jp 7EC4 
. .cali 7098 
. .cali 0040 

7076 

7079 

7070 

co 

FO 

C4 


..cali 0D6E 

7080 

20 


. . ld a,02 

7083 

36 

7D 

07 

01 

18 

7D 


..cali 7D95 

7085 

23 

00 

D6 

. . ld (iy +07) ,00 
. .set 2. (iù+01) 

. . ea 11 18F3 

7086 

7088 

708B 

3b 

CD 

OF 


. .cali 7DR6 

7D8C 

CO 


. . cp 0C 

703F 

CO 

7E 


. . jp Z ; 7EBE 

7092 

C3 



7095 

11 



..jr nz » 7C94 

7098 

C3 

70 

5C 

... 

..cali 7D9B 
.. ld hi,(5C53) 

7098 

7090 

lb 

FD 



7DO0 

21 





7003 

C3 

4B 

se 


.. ld hi,(SC4B) 

7006 

hF 


. . and a 

7007 

32 

42 



. . S bc h l , bC 

7000 

30 




7000 

07 

CB 

RF 

30 

0D 

46 

..bit 0, (iV 430) 
..cali nz, 0DRF 

7D0E 

7OB0 

26 

C9 

02 

01 

36 


. . ld a,02 

7DB1 

FD 

16 

52 


..cali 1601 

7DB5 

3t 

03 

. . ld (iy+52) ,05 

7087 

7DB8 

07 

3E 

28 

E3 

00 

20 

20 


..Cali 2D2B 

7DB0 

0 7 


..Cali 2DE3 

7088 

OF 



7DBC 

li 



..rs t Ì0 

70BF 

CO 




..xor a 

70C2 

RF 

01 

6E 

81 

C4 

9B 

40 

6E 

01 

16 

0D 

70 

7E 

.70 

00 

00 


. .cali 1601 

70C3 

ii 


. .cali 0D6E 

70C6 

CD 


..cali 7DB1 

70C9 

3E 


..JP 7EC4 

70CB 

07 


..cali 7D9B 

70CC 

3E 



70CE 

0 7 

7C0C 

7C0F 


..cali 0D6E 

70CF 

3E 


. . ld a ,01 

7001 

07 


95 

36 

CB 

F3 

R6 

0C 

BE 

0D 

F4 

9B 

6E 

CB 

RF 

70 

07 

01 

18 

70 


. .CaU 7D95 

00 

D6 

. . ld (iy+07) ,00 
. .set 2, liy+01) 
t_.eali 18F3 


. .cali 7DR6 


..cp OC 

7E 


. . jp Z.7EBE 




7D 

0D 

30 

0D 

5C 

46 


. .Cali 7D9B 


. .cali 0D6E 

46 

..bit 0.(iy430) 
..cali n z >0DRF 

53 

4B 

42 

2R 

se 

..Cd hi,(5C53) 

..ld bc,(5C4B) 

. . S bC h l , bc 




53 

5C 


. . ld hi, (5C53) 








ER 



. . ld a.ER 



..CD (hi) 


07 

88 

E8 



,,jf nz,7D29 

19 

19 


..cali Ì9B8 


..cali 19E6 




07 



, , jf Z,7D33 



..ine hi 








4B 

se 


. . ld hi, (5C4B) 



52 



. . S bc hl.de 




09 

02 

01 

95 






. . ld a,02 

16 

17 


. .cali 1601 


..cali 1795 



01 

B1 

C4 

40 

6E 

98 

16 

7D 

7E 

0D 

00 

70 


..cali 1601 


..cali 7081 
. . jp 7EC4 


..Cali 0D4D 


..cali 0D6E 


. . cali 7D9B 

95 

36 

CB 

F3 

06 

OC 

BE 

00 

F4 

90 

6E 

C8 

OF 

30 

03 

70 

07 

01 

18 

70 


..cali 7D95 

00 

D6 

..ld (iy +07),00 
..set 2,(iy+01) 
..cali 18F3 


..cali 7DR6 


..cp OC 

76 


..jp z.7EBE 


..CP 0D 



. . jr nz.7067 

70 

00 

30 

00 

5C 


..cali 7D9B 


..cali 0D6E 

46 

. . bi t 0, (iy 4301 
. .cali nz,0DRF 


..ld hi,(5C3D) 


. . ld (h l ) , 03 



..ine hi 

13 

D3 



. . ld (h 11 . 13 

7D 


..cali 7DD3 



01 

B1 

C4 

EC 

0M 

00 

5E 

CB 

B5 

16 

70 

7E 

7E 

0C 


..cali 1601 


. .cali 7DB1 


. . jP 7EC4 







FF 

00 

03 









08 

08 

se 

se 







FO 







CB 

30 

02 

EE 

. .set 5,(iy402) 




20 








91 

OR 

13 

OC 







36 

00 

30 

15 

0C 










30 







31 





56 





















































































































































































































































































































Seguito figura 4. 


7DD2 C9 .ret 

7ED4 


7DDD 18 


7DE4 FE 


D4 

CB 

4B 

04 

7E . 

02 36 .. 
5C . 


OD . 


80 




j r 


(iy+02) 
hi,(5C4B) 
70E3 


h t 

7DE0 3E OD .ld a , ©D 

t IO 
a , (hi) 

. CP 30 

l 7 /a 
nz,7DF9 


nz,7DF4 
U 7E19 
7DDF 


7DE7 

lo 

CB 

7F 


7DE9 

20 

0F 


7DEe 

CB 

6F 


7DED 

20 

05 


7DEF 

CD 

19 

7E . 

7DF2 

18 

KB 


7DF4 

CD 

2F 

7E . 

7DF7 

18 

E6 


7DF9 

CB 

77 


7DFB 

20 

OF 


7DF0 

CB 

6F 


7DFF 

20 

05 


7E01 

CD 

50 

7E . 

7E04 

ld 

09 


7E06 

CD 

38 

7E . 

7E09 

18 

1)4 


7E0B 

CB 

6F 


7E0O 

20 

05 


7E0F 

co 

98 

?é . 

7E12 

18 

CB 


7E14 

CD 

87 

7E . 

7E17 

18 

Có 


7E19 

CO 

H0 

7E . 

7E1C 

3E 

24 



7DDF 


jf nz.7E06 
cali 7ES0 
jr 7DDF 
cau 7E38 
jr 7DDF 
bi t 5,a 
. j r nz,7E14 
U 7E98 
7DDF 
U 7E87 
7DDF 
Il 7ER0 
ild a,24 

7E1E D7 .rat IO 


7E1F 3E 30 


ld a,3D 


7E21 07 .rst 10 

7E22 4E .Id C , (hi) 

7E23 23 .ine hi 

7E24 46 .Id b, ih l) 


7E2S 78 .Id 

7E26 B1 .or 


a , b 

7E27 C3 .ret Z 


7E2S 23 .ine hi 

7E29 OB .dee bc 

7E2R 7E .Id a , (h l) 

7E2B 07 .rst 10 


7E2C 
7E2E CD 
7E31 3E 


18 F7 


.jr 7E25 


A0 7E . tati 7EA0 

3D 


,Id a.30 
10 


7E33 07 .rst 

7E34 CD R8 7E . eall 7ER8 

7E37 C9 .ret 

7E36 CO R0 7E . eall 7EA0 

7E36 2B .dee hi 

7E3C 23 .ine hi 

7E30 7E .Id a , (h l) 


7E3E CB 7F 


. b: t 7, a 


7E40 20 03 .jr nz , 7E45 

7E42 07 .rst 10 

7E43 18 F7 .jr 7E3C 

7E45 CB BF .res 7, a 

7E47 D7 .rst 10 

7E43 3E 30 .Id a, 30 

7E4R 07 .rst 10 

7E4B 23 .ine hi 

7E4C CO R8 7E . Cali 7ER8 

7E4F C9 .ret 

7ES0 CD R0 7E . cali 7ER0 

7E53 3E 23 .Id a , 28 

7ESS D7 .rst 10 

7E56 5E .Id e , Ih U 


7E57 

23 




7E58 

56 




7E59 

23 




7E5R 

18 

03 



7E5C 

C3 

03 

79 . . 


7E5F 

OS 




7E60 

7E 




7E61 

F5 




7E62 

46 




7E63 

23 




7E64 

C5 




7E55 

4E 




7E66 

23 




7E67 

46 




7E63 

F5 




7E69 

CO 

1B 

IR . . 


7E6C 

F;l 




7E6D 

3F 

2C 



7E6F 

07 




7E70 

Ci 




7E71 

10 

F0 



7E73 

3E 

08 



7E75 

07 




7E76 

3E 

29 



7E78 

07 




7E79 

FI 




7E7R 

DI 




7E7B 

87 




7E7C 

3C 




7E7D 

FB 




7E7E 

4F 




7E7F 

06 

00 



7E81 

R/ 




7E82 

EO 

42 



7E84 

F8 




7E35 

19 




7E86 

09 




7E87 

CD 

R0 

7E . . 


7E8R 

3 E 

7F 



7E8C 

07 




7E80 

3E 

30 




7E8F 

07 




7E90 

CO 

R3 

7E . . 


7E93 

11 

OD 

00 . . 


7E96 

19 




7E97 

09 




7E98 

CD 

R0 

7E . . 


7E9B 

3E 

24 



7E9D 

07 




?E9E 

18 

83 



7ER0 

7 E 




7ER1 

E6 

1F 



7ER3 

C6 

60 



7ER5 

07 




7ER6 

23 




7ER7 

C9 




7ER8 

7E 




7ER9 

23 




7ERR 

OS 




7ERB 

cs 




7ERC 

st 




7ERD 

23 




7ERE 

56 




7ERF 

23 




7EB0 

4E 




7EB1 

23 




7EB2 

46 




7EB3 

ES 




7EB4 

CD 

B6 

2R . . 


7EB7 

CD 

32 

20 . . 


7EBR 

E1 




7EBB 

Ci 




7EBC 

DI 




7EBD 

Ctì 




7EBE 

CD 

98 

7D . . 


7EC 1 

CD 

6E 

0D . . 

...cali 0D6E 

7EC4 

2R 

B2 

5C . . 



7EC9 

2B 




• • i a i n t J ; oc 
..dee h l 

7ECR 

F9 




. . ld sp,h l 

7ECB 

2tì 




. . dee hi 

7ECC 

2B 




..dee hi 

7ECD 

22 

30 

se 


..ld (5C3D),hl 

7ED0 

21 

RC 

12 


..ld hi,12RC 

7ED3 

ES 




. . P u £ h hi 

7ED4 

FD 

CB 

30 

36 , 

..res 0 , ( i y +30) 

7EDS 

FD 

36 

00 

FF . 

. . ld (iy+00) .FF 

7EDC 

FD 

CB 

01 

9E , 

. . res 3, (iy+0l) 

7EE0 

FD 

CB 

01 

RE . 

. . res s, (iy +01) 

7EE4 

3fc 

28 



..ld a.28 

7EE6 

FD 

47 



. . ld i , a 

7EE8 

FD 

SE 



. . i M 2 

7EER 

FB 




. . e ì 

7EEB 

C9 




. .ret 

7EEC 

80 




. . add a , b 

7EED 

44 




. . ld b , h 

7EEE 

55 




. . ld d , l 

7EEF 

4D 




. ld C , l 

7EF0 

so 




. ld d , b 

7EF1 

HO 




.and b 

7EF2 

44 




.ld b,h 

7EF3 

52 




. 1 d d , d 

7EF4 

45 




. ld b , l 

7EF5 

40 




. ld C , l 


7EF6 

R0 



7EF7 

50 



7EF3 

20 



7EF9 

4C 



7EFR 

45 



7EFB 

4E 



7EFC 

4/ 



7EFD 

48 



7EFE 

54 



7EFF 

A0 



7F00 

50 



7F01 

61 



7F02 

6F 



7F03 

6C 



7F04 

61 



7F0S 

20 

42 . . . 


7F07 

2t 

R0 ... 


7F09 

50 



7F0R 

52 



7F0B 

49 



7F0C 

4E 



7F0D 

S4 



7F0E 

20 

46 ... 


7F10 

52 



7F11 

C5 



7F12 

4F 



7F13 

7D 



7F14 

D6 

7C . . . 


7F 16 

7B 



7F17 

7C 



7F13 

Hb 



7F19 

7R 



7F1R 

26 

7C ..., 


7F1C 

7F 



7F10 

20 

31 .... 


7F1F 

39 



7F20 

>8 

34 . . . . 


7F22 

20 

62 .... 


7F24 

79 



7F2S 

20 

52 ' ... . 


7F27 

bF 



7F28 

62 



7F29 

69 



7F2R 

bh 



7F2B 

20 

44 .... 


7F2D 

72 



7F2E 

61 



7F2F 

68 



7F30 

65 



7F31 

00 




Listato 1. Bootstrap loader, versione 48 Kbyte. 


Listato 2. Bootstrap loader, versione 16 Kbyte. 

0 > REM 


0 > REM 

5>rem •/. y. 


0 > REM Y. •/, 

0 >REM ’/, BRSKIT 4-8K X 


0>REN X 6RSKIT 16K X 

0 > REM X X 


0>REM y y. 

0 >REM X© 1984- by Robin DrakeX 


0>REM x© 1984. by Robin DrakeJi 

0 > REM X X 


0 > rem y; y. 

0 > rem yp/.y.y.y.y.'A'/.y.y.y.y.y.y.y'.y.y.y.y.y.yy.y. 


l^ sDpM V V*'/ V V •/ V V ■/ VV V V V •/ V V V V V V V V 

w / r\UI | /*/%** /■ t % /« /a /« /% /■ /■ /% /i/i/i /• /% /■ /« <i /» /■ /% 

0> 


0 > 

10 CLERR 63999: LORD •'"CODE 


10 CLERR 31229: LORD "‘'CODE 

20 PRINT " RRNDGMI2E U3R 64.000 


20 PRINT " RRNDOMIZE USR 31230 

per attivare BRSKIT 


per attivare BRSKIT 

. RRNDOMIZE USR 64-003 


. RRNDOMIZE USR 31233 

per disattivarlo.” 


per disattivarlo." 
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... e con questi siamo a 60 
ecco chi si è abbonato, 
ha risparmiato e ha vinto 
un Commodore 64 

Pubblichiamo l’elenco di altri 20 fortunati vincitori 
del concorso abbonamenti Jackson 1985. A loro 
vanno le nostre più vive felicitazioni e agli altri 
nostri abbonati l’augurio di essere fra i 40 restanti 
fortunati. 

Il prossimo mese pubblicheremo l'elenco di altri 20 
fortunati vincitori. 



I) D’AMICO Michele 

Via Giallo-Parco Gabriella 
81100 Caserta (CE) 


2) PENNESTRE Claudio 

Via C. Cavour, 21 

34077 Ronchi dei legionari (GO) 


3) MARCHI Raffaele 

Via Melauro, 38 

65010 S. Teresa di Spollore (PE) 

4) SESTITO Aurelio 

Via Martelli, 14 

88064 Chioravolle Centrale (CZ) 


5) CECCATO Giovanni 

Via Pocinotti. 4 

36060 Romano D'Ezzelino (VI) 


6) CASALI Aldo 

P.zza Caiozzo, 3 
20124 Milano (MI) 


7) RITAROSSI Mario 

Via Cerreto di Spoleto, 48 
00181 Roma (RM) 


8 ) SATEMA S.a.s. 

di G. & l. F.lli Grillo &C. 
Via Milano, 473 
13069 Vigliano 8iellese (VC) 


9) FANTECHI Renzo 

Via Forlivese, 29 
50065 Ponlossiene (fi) 


10) FOGLIANO Pierluigi 

Via Capecelatro, 22 
20148 Milano (MI) 


II) FARRONI Pierluigi 

Via Borgo San lorenzo, 2 
62020 loro Piceno (MC) 


12) GRILLI Giuliano 

Via Di Mezzo, 33 
41032 Covezzo (MO) 


13) SAMMARCO Giovanni 

Via Del Faro, 72 
74020 San Vito (TA) 


14) BASILE Modesto 

Via luigi Sturzo, 39 
67100 l Aqu.lu (AQ) 


15) MORGANO Oresto 

Via Nazionale. 127 
94010 Calasi ibella (EN) 


16) GIORDANO Giancamillo 

Via M. Ausiliatrice, 36 
10152 Torino (TO) 


17) GUERRINI Roberto 

Via Pascoli, 3 

53027 S. Quirico D'Orcio (SI) 


18) TURNU Efisio 

Via Cesare Balbo, 16 
09170 Oristano (OR) 


19) I.T.I. di Castelfranco Veneto 

Via Dei Carponi, 19 

31033 Caslellranco Veneto (TV) 


20) ZATTONI Raffaele 

Via Palazzolo, 8 
48020 S. Romualdo (RA) 




Baskit 

Spectrum 


Listato 3. Caricatore decimale ottimizzato, 
versione 48 Kbyte. 


1 

2 REM 

3 REM 

4 REM 

5 REM 

6 REM 

7 REM 

8 REM 

9 REM 


*********************** 


CARICATORE BASIC 
DEL PROGRAMMA 
BASKIT 48K 


10 CLEAR 63999: LET n«5855: LE 

T a =64.000 _ 

20 LET u =0 : FOR f=a TO a+49: I 
NPUT if),S: POKE f,S: LET U =U +S : 
PRINT f,S: NEXT f : BEEP 1,30 
30 IF nou then PRINT "Errore 
nei byte compresi tra "'a;’’ e 
f-1: Su TO 32767 

40 READ n: IF n=2tl6 THEN BEEP 
9.20: PRINT 81;"You worked SO h 
ard that you can": SAUE "BasCQDE 
43K"CODE 64000,1330: PRINT 81;" 

Rewind tape for UERIFY ": 0 
ERIFY- "BasCODE 48K"C0DE 64000: L 
0 TO 32767 

50 LET asf: GO TO 20 
60 DATA 4866,6343,6143,8149,S9 
55,5328,5870,7è34,7240,55 
, 6385,7182,6578,6647,D096,7360,6 
174,5470,6162,7087,6594,6555,644 
7,5229,3858,65536 

70 REM © 1984 by Robin Drake 


Listato 4. Caricatore decimale ottimizzato, 
versione 16 Kbyte. 


1 REM 

2 REM 

3 REM 

4 REM 

5 REM 

6 REM 

7 REM 

8 REM 

9 REM 


********* 


CARICATORE BASIC 
DEL PROGRAMMA 
BASKIT 16K 


********************* 


10 CLEAR 31229: LET n=5726: LE 
T a=31230 _ 

20 LET U=0: FOR f =a TO a+ 49 : I 
NPUT il") , S : POKE f , S : LET U =U +S : 
PRINT f,S: NEXT f : BEEP 1,30 
30 IF nou THEN PRINT "Errore 
nei byte compresi tra "a;" e 
f- 1 - GO TO 32767 

40 READ n: IF n=2tl6 THEN BEEP 
9,20’ PRINT 81;"You worked so h 
ard that you can": SAUE "BasCODE 
16K"C0DE 31230,1331: PRINT 81; 

Rewind tape ror UERIFY u 
ERIFY "BasCODE 16K"C0DE 31230: G 
O TO 32767 „ __ 

50 LET a*f: 60 TO 20 . „ 

60 DATA 4866,6084,5882,6981,56 
96,5328,5740,6985,6980,4891,6000 
,5994,6é65,6Ó59,6253,5837,6711,5 
656,5041,5"^ 18,6485,6094, 6 137,6l5 
0.5188,2888,65536 
'70 rÉm © 1984 by Robin Drake 


I 
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Sistemi ridotti 
—Totocalcio— 

- Parte seconda - 


Fate 13 

con il vostro Apple II 


di Vincenzo Delle Cave 

N el numero precedente del¬ 
la rivista abbiamo visto in 
dettaglio la prima parte 
del programma Totocalcio, quella 
cioè che permette di giocare i sistemi 
ridotti senza nessun’altra limitazio¬ 
ne fuorché quella di garantire, a pro¬ 


nostico indovinato, la vincita di 2 a 
categoria. Esaminiamo ora le altre 
caratteristiche del programma. Gli 
appassionati di Totocalcio sanno 
che oltre ai sistemi ridotti incondi¬ 
zionati esistono altre categorie di si¬ 
stemi: quelli a correzione di errore, 
quelli statistici, e cosi via. Vi sono 
inoltre delle pubblicazioni specializ¬ 
zate sulle quali è possibile reperire lo 
sviluppo di tali sistemi. Il giocatore 
deve a questo punto “adattare” il 
sistema al proprio pronostico, mo¬ 
dificando opportunamente i segni. 
La seconda parte del programma 


Totocalcio, quella cioè che presen¬ 
tiamo in questo numero e che va 
unita alla prima parte pubblicata 
nella scorsa puntata, ci permette di 
creare un archivio di sistemi perso¬ 
nalizzato e di giocare successiva¬ 
mente uno dei sistemi inseriti. Il pro¬ 
gramma provvede ad adattare lo 
sviluppo del sistema al pronostico e 
l’unico compito del giocatore è, a 
qusto punto, quello di dover rico¬ 
piare le colonne cosi come vengono 
stampate dal programma. 

Sarà meglio, comunque, spiegarci 
con un esempio. Curiosando in alcu- 


Listato 1. La seconda parte del programma 
Totocalcio. 


5000 

REM 

**#* DIUERSI **»* 

5010 

REM 


5020 

REM 


5050 

ZT* = 

"CARATTER.SI STEMA 

5060 

HOME 

: PRINT "INSERIRE 


UMERO DEL SISTEMA INPUT 

””;N*:NN = UAL <N*>: IF NN = 

0 THEN 5060 

50 70 PRINT : PRINT D*;"OPEN CATA 
LOGO" 

5086 PRINT D*READ CATALOGO”: INPUT 
IND: PRINT D*;"CL0SE CATALOG 
0“ 

5090 IF NN > IND - 1 THEN HOME 
: PRINT "NON ESISTE IL SISTE 
MA N."NN: FOR I = 1 TO 3000: 

NEXT I : GOTO 5060 
5100 60SUB 10000 
5110 REM 
5120 REM 
5130 REM 

5140 N = 9 :ZF = 1: GOSUB 9000 
5150 IF ZX* = "N" THEN 5060 
5160 TR = UAL <ZD*(1)):DR = UAL 
(ZD*(2)):NCS = UAL <ZD*<3>) 

5170 HOME : INUERSE : PRINT “ 

FASE DI INSERIMENTO DEL SI 
STEMA “: PRINT 
5180 SD = 0 :ST = 0 
5190 PRINT "PARTITA. SE 

GNO RIGA" 


5200 PRINT 
5210 FOR I = 1 TO 13 
5220 UTAB 1+4: HTAB 4: PRINT I 
;: HTAB 20: INPUT "";A*<I,1> 

: UTAB 1+4: HTAB 37: INPUT 
"";A*(I,2) 

5222 KK* = A$<1,1) 

5224 GOSUB 8000 

5226 IF KO = 1 THEN KO = 0 : GOTO 
5220 

5230 IF LEN <A*<I,1>) < > 1 THEN 
5250 

5240 IF LEN <A*(I,2)) < >0 THEN 
UTAB 1+4: HTAB 37: INPUT 
"";A*(I,2): GOTO 5240 
5250 IF LEN <A*< I,1>) = 2 THEN 
SD = SD + 1 : GOTO 5270 
5260 IF LEN <A*(I,1>> = 3 THEN 
ST = ST + 1 
5270 NEXT I 

5280 UTAB 23: PRINT "CONFERMATO 
(S/N) ? "; : GET A*: PRINT 
5290 IF A* = "N" THEN 5170 
5300 IF A* < > "S" THEN 5280 

5310 NORMAL 

5315 IF SD = DR AND ST = TR THEN 
5321 

5320 GOTO 5330 

5321 SQ = 0:SP = 0: FOR Q = 1 TO 

13:SQ = SQ + UAL <A*(Q,2)): 
NEXT Q 

5322 FOR Q = 1 TO DR + TR:SP = S 
P + Q: NEXT Q 

5323 IF SQ = SP THEN 5340 

5330 HOME : PRINT "SISTEMA INSER 
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Seguito listato Totocalcio. 


ITO NON COMPATIBILE ": GET A 
*: GOTO 5060 

5340 PRINT : PRINT D*;"OPEN PERS 
ONALE , L2600 1 11 

5350 PRINT D*;"READ PERSONALE,R" 

NN 

5360 FOR I = 1 TO TR + DR: FOR J 

= 1 TO NCS: INPUT BXCI,J): NEXT 
J: NEXT I 

5370 PRINT D* ; 11 CLOSE PERSONALE" 

5380 FOR I = 1 TO 13 

5390 IF A*CI,2) = "" THEN FOR J 
= 1 TO NCS:CX<I,J> = VAL < 
A*CI,1>): NEXT J: GOTO 5460 

5400 K = VAL CA*C1,2)) 

5410 IF A$(I,1) = "1X2" OR A*CI, 

1) = "IX" THEN FOR J = 1 TO 
NCS: CXC I,J) = BXCK,J>: NEXT 
J: GOTO 5460 

5420 PI* = LEFT* CA*CI,1),1):P2* 



= MI D* CA*CI,1),2, 

1):P3* = 


“ 0 " : P4 = K : I F LEN 

CA*C1,1) 


) = 3 THEN P3* = RIGHT* CA* 
< I , 1 ) , 1 ) 

5430 

GOSUB 6050: REM CAMBIO 

5440 

IF SI = 1 THEN SI = 

0: HOME 


: PRINT "INSERIMENTO 
": GET S*: GOTO 5170 

ERRATO 

5450 

FOR J = 1 TO NCS: CXC I , J) = 
B%(K,J): NEXT J 

5460 

NEXT I 


5470 

GOTO 1381 


5480 

REM 


5490 

FOR J = 1 TO NCS 


5500 

IF BXCK,J) = 0 THEN 
= 2: GOTO 5520 

BX < K,J) 

5510 

IF BXCK.J) = 3 THEN 
= 5 

BX(K,J) 

5520 

NEXT J: RETURN 


5530 

FOR J = 1 TO NCS 


5540 

IF BXCK,J) = 1 THEN 
= 0 : GOTO 5560 

BX ( K,J) 

5550 

IF BX C K , J ) = 0 THEN 
= 1 

NEXT J: RETURN 

BX < K , J ) 

5560 


5570 

FOR J = 1 TO NCS 


5580 

IF BX< K,J) = 1 THEN 
= 0: GOTO 5610 

BX < K,J > 

5590 

IF BX<K,J) = 0 THEN 
= 2: GOTO 5610 

BXCK, J) 

5600 

IF BX< K,J) = 3 THEN 
= 4 

BX C K , J ) 

5610 

NEXT J: RETURN 


5620 

FOR J = 1 TO NCS 


5630 

IF BXC K , J ) = 1 THEN 
= 0: GOTO 5660 

BX < K,J) 

5640 

IF BX < K,J) = 0 THEN 
= 1 : GOTO 5660 

BX < K,J) 

5650 

IF BX(K,J) = 3 THEN 
= 5 

BX < K,J) 

5660 

NEXT J: RETURN 


5670 

FOR J = 1 TO NCS 


5680 

IF BX<K,J) = 1 THEN 

BX ( K , J ) 


= 2: GOTO 5700 


5690 

IF BXCK.J) = 3 THEN 
= 4 

BXCK,J) 

5700 

NEXT J: RETURN 


5710 

FOR J = 1 TO NCS 


5720 

IF BX < K,J) = 0 THEN 
= 2: GOTO 5760 

BX < K,J) 

5730 

IF BX(K,J) = 2 THEN 
= 0: GOTO 5760 

BXCK,J) 

5740 

IF BX(K,J) = 3 THEN 
= 5: GOTO 5760 

BXCK,J) 

5750 

IF BX(K,J) = 5 THEN 
= 3 

BXCK,J) 

5760 

NEXT J: RETURN 


5770 

FOR J = 1 TO NCS 


5780 

IF BX C K , J ) = 1 THEN 
= 0: GOTO 5820 

BXCK,J) 

5790 

IF BX<K,J) = 0 THEN 
= 1 : GOTO 5820 

BXCK,J) 

5300 

IF BX C K,J) = 5 THEN 
= 4: GOTO 5820 

BX.CK, J) 

5810 

IF BX C K,J) = 4 THEN 
= 5 

BXCK,J) 

5820 

NEXT J: RETURN 


5830 

FOR J = 1 TO NCS 


5840 

IF BX C K,J) = 1 THEN 
= 0: GOTO 5900 

BXCK,J) 

5850 

IF BX < K,J) = 0 THEN 
= 2: GOTO 5900 

BXCK,J) 

5860 

IF BX < K,J) = 2 THEN 
= 1 : GOTO 5900 

BXCK,J) 

5870 

IF BX < K,J) = 3 THEN 
= 4: GOTO 5900 

BXCK,J) 

5880 

IF BX<K,J) = 5 THEN 
= 3: GOTO 5900 

BXCK,J) 

5890 

IF BX(K,J) = 4 THEN 
= 5 

BXCK,J) 

5900 

NEXT J: RETURN 


5910 

. FOR J = 1 TO NCS 


5920 

IF BX<K,J) = 1 THEN 
= 2: GOTO 5960 

BXCK,J) 

5930 

IF BX C K,J) = 2 THEN 
= 1 : GOTO 5960 

BXCK,J) 

5940 

IF BX < K,J) = 3 THEN 
= 4: GOTO 5960 

BXCK,J) 

5950 

IF BX C K,J) = 4 THEN 
= 3 

BXCK,J) 

5960 

NEXT J: RETURN 


5970 

FOR J = 1 TO NCS 


5980 

IF BX C K,J) = 1 THEN 
= 2: GOTO 6040 

BXCK,J) 

5990 

IF BX< K,J) = 0 THEN 
= 1 : GOTO 6040 

BXCK,J) 

6000 

IF BX C K,J) = 2 THEN 
= 0 : GOTO 6040 

BXCK,J) 

6010 

IF BX C K,J) = 3 THEN 
= 5: GOTO 6040 

BXCK,J) 

6020 

IF BX C K,J) = 5 THEN 
= 4: GOTO 6040? 

BXCK,J) 

6030 

IF BX<K,J) = 4 THEN 
= 3 

BXCK,J) 

6040 

NEXT J: RETURN 


6050 

REM CAMBIO 


6060 

IF P3* < > "0" THEN 

6120 

6070 

IF PI* = "1" AND P2* 

= "2" THEN 


GOSUB 5490: GOTO 6180 

6080 

IF PI* = "X" AND P2* 

= "1" THEN 


GOSUB 5530: GOTO 6180 


60 
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FACILE GUIDA AL COMMODORE 64 


Questo libro vi insegnerà in poche ore ad usare il 
vostro Commodore 64, cominciando dalla tastiera e dal 
video, per passare poi alle altre periferiche più comuni, 
l'unità a dischi e il registratore a cassette. 

Imparerete con estrema semplicità a scrivere 
programmi in BASIC, ma se questo non è il vostro 
obiettivo potete “saltare'' i Capitoli dedicati alla 
programmazione e imparare invece come utilizzare 
"pacchetti" di software preconfezionati. 
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Francesco Lumini 

CONOSCI TE STESSO TRAMITE IL TUO 
PERSONAL COMPUTER 

Il libro si compone di cinque capitoli, ognuno dei quali 
attinge ad una delle discipline che affrontano in 
qualche modo lo studio della personalità umana: 
Numerologia, Astrologia, Grafologia, Scienza del 
Comportamento, Test di Intelligenza. 

I programmi sono stati scritti per Apple II e sono 
disponibili su cassetta e dischetto; nelle due Appendici 
ci sono i consigli necessari per adattarli a qualsiasi 
altro PC della stessa generazione. 


128 pagine 

Codice 401D L. 12.000 


GRUPPO 

EDITORIALE 

JACKSON 


Attenzione compilare per Intero 
la cedola 

ritagliare (o fotocopiare) e spedire 
in busta chiusa a: 

GRUPPO EDITORIALE JACKSON 

Divisione Libri 

Via Rosellini, 12 - 20124 Milano 


La Biblioteca che fa testo 


_ CEDOLA DI COMMISSIONE LIBRARIA 

VOGLIATE SPEDIRMI 


n° copie 

codice 

Prezzo unitario 

Prezzo totale 














□ Pagherò contrassegno al postino il prezzo indicato più L 3.000 per contributo fisso 

spese di spedizione. 

Condizioni di pagamento con esenzione del contributo spese di spedizione: 

□ Allego assegno della 8anca □ Allego fotocopia del versamento 

su c/c n. 11666203 a voi intestato 

□ Allego fotocopia di versamento 

_-_. su vaglia postale a voi intestato 


, Nome 


Cognome 


Cap 


Città 


Data 


Firma 


Spazio riservato alle Aziende. Si richiede remissione di fatture 
I.V.A. I I I I I I I I I I I I 


Partita l.\ 


ORDINE 
MINIMO 
L. 50.000 


Libri firmati JACKSON 


Roberto Rigo 

SPECTRUM TOOL 
Programmi di utilità, 


Una giusta via di mezzo tra la praticità di uso e la 
velocità di esecuzione di un programma è 
rappresentata dall'uso combinato del BASIC e del 
linguaggio macchina; la conoscenza di quest'ultimo è 
comunque indispensabile per poter sfruttare a pieno il 
proprio calcolatore. 

Questa è la premessa da cui parte l'autore, per 
proporre una serie di interessanti programmi BASIC 
che si servono di routine scritte in linguaggio 
macchina. 
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Seguito listato Totocalcio. 


6090 

IF PI* = 

"X” AND P2* 

— Il 2 " 

THEN 


GOSUB 5570: GOTO 6180 



6100 

IF PI* = 

"2" AND P2* 

= 11 1 u 

THEN 


GOSUB 5620: GOTO 6180 



6110 

IF PI* = 

"2" AND P2* 

_ „ x „ 

THEN 


GOSUB 5670: GOTO 6180 



6120 

IF PI* = 

"1“ AND P2* 

= ii ^ '* 

AND 


P3* = "X" 
6180 

THEN GOSUB 

5710 : 

GOTO 

6130 

IF PI* = 

"X" AND P2* 

_ Il H 

AND 


P3* = "2" 

THEN GOSUB 

5770 : 

GOTO 


6180 



„ 

6140 

IF PI* = 

"X" AND P2* 

— ii 2 *• 

AND 


P3* = "1" 
6180 

THEN GOSUB 

5830 : 

GOTO 

6150 

IF PI* = 

"2" AND P2* 

= "X" 

AND 


P3* = "1" 
6180 

THEN GOSUB 

5910 : 

GOTO 

6160 

IF PI* = 

"2" AND P2* 

= Il j II 

AND 


P3* = "X" 
6180 

THEN GOSUB 

5970 : 

GOTO 

6170 

SI = 1 




6180 

RETURN 




6190 

REM *** 

ACCETTA *** 




6200 HOME 

6210 D* = CHR* < 4) 

6215 PRINT 

6220 PRINT D*;"OPEN CATALOGO" 

6230 PRINT D*;"READ CATALOGO" 

6240 INPUT IND 

6250 PRINT D*;"CLOSECATALOGO" 

6260 ZT* = “CARATTER. SISTEMA” 

6270 N = ? :ZF = 0 : FOR I = 1 TO ? 

:ZD*<I> = " NEXT I 
6280 GOSUB 9000 

6290 IF VAL <ZD*<1>> + VAL <ZD 
*<2>> > 13 THEN HOME : PRINT 
"ATTENZIONE LA SOMMA DELLE T 
RIPLE E DELLE DOPPIE E' MAGG 
I ORE DI 13": FOR I = 1 TO 20 
00: NEXT I: GOTO 6280 
6300 PRINT : PRINT D*;"OPEN COMM 
ENTO,L200" 

6310 PRINT D*;"WRITE COMMENTO,R" 
IND 

6320 FOR I = 1 TO N: PRINT ZD*<I 
): NEXT I 

6330 PRINT D*;"CLOSE COMMENTO" 

6340 REM 

6350 DR = VAL <ZD*U)>:TR = VAL 
CZD*<2>) 

6360 NCS = VAL <ZD*<3)>:NSC = VAL 
<ZD*<4)) 

6370 REM INPUT 

SVILUPPO 

6380 FOR I = 1 TO NCS 
6390 HOME 

6400 INVERSE : PRINT "FASE INSER 
IMENTO SISTEMA - COLONNA N." 

I : NORMAL 

6410 PRINT "L'INSERIMENTO AVVIEN 
E PER COLONNE" 


6420 FOR J = 1 TO DR + TR 
6430 VTAB 5 + J: PRINT J" HTAB 

4: INPUT "";BB*: GOSUB 6600 
6440 IF SW = 1 THEN SW = 0 : HOME 
: PRINT "ATTENZIONE !! INSER 
IMENTO ERRATO. RIBATTE 

RE LA COLONNA N.*I: PRINT "P 
REMI UN TASTO PER CONTINUARE 
GET A*: PRINT : GOTO. 639 

0 

6450 NEXT J 

6451 VTAB 23: PRINT "CONFERMATO? 

"; : GET ZX* 

6452 IF ZX» < > “S" THEN 6390 

6460 NEXT I 

6470 REM 

6480 PRINT : PRINT D*;"OPEN PERS 
ONALE,L26001" 

6490 PRINT D*j"WRITE PERSONALE,R 
"IND 

6500 FOR I = 1 TO TR + DR: FOR J 

= 1 TO NCS: PRINT DX<I,J>: NEXT 
J: NEXT I 

6510 PRINT D*;"CLOSE PERSONALE" 

6520 IND = IND + 1 , 

6530 PRINT : PRINT D*;"OPEN CATA 
LOGO" 

6540 PRINT D*;"DELETE CATALOGO" 

6550 PRINT D* j"OPEN CATALOGO" 

6560 PRINT D*;"WRITE CATALOGO" 

6570 PRINT IND 

6580 PRINT D*;"CLOSE CATALOGO" 

6590 GOTO 20 

6600 REM CONVERSIONE 

6610 IF BB* = "X" THEN DX<J,I> = 

0: RETURN 

6620 IF BB* = "IX" OR BB* = "XI" 

THEN DX < J,I) = 3: RETURN 
6630 IF BB* = "X2" OR BB* = “2X" 

THEN DX< J,I) = 4: RETURN 
6640 IF BB* = "12" OR BB* = "21" 

THEN DX(J,I) = 5: RETURN 
6650 IF BB* = "1X2" OR BB* = "12 
X" OR BB* = "XI2" OR BB* = 11 
X21" OR BB* = "21X" OR BB* = 
"2X1" THEN DX< J,I) = 6: RETURN 

6660 IF BB* < > "1" AND BB* < > 

"2" THEN SW = 1 : RETURN 
6670 DX(J,I> = VAL <BB*>: RETURN 

7000 REM *** CATALOGO *** 

7010 PRINT : PRINT D*;"OPEN CATA 
LOGO" 

7020 PRINT D*;"READ CATALOGO" 

7030 INPUT IND: PRINT D* ; “CLOSE 
CATALOGO" 

7040 FOR NN = 1 TO IND - 1 

7050 GOSUB 10000 

7060 N = 9:ZF = 2: GOSUB 9000 

7070 IF ZX* = "F" THEN 20 

7080 NEXT NN 

7100 GOTO 20 

7500 HOME : PRINT "A T T E N Z I 
ONE ! ! ": PRINT "L'ARCHIV 
IO PRECEDENTE SARA' CANCELLA, 


62 




Seguito listato Totocalcio. 


TO": PRINT “RICHIESTA CONFER 

MATA? “; : 6ET ZX* 

7502 

IF ZX* < > “S" THEN 20 

7503 

PRINT : PRINT D*:"0PEN PERS 
ONALE" 

7505 

PRINT D*;"DELETE PERSONALE" 

7506 

PRINT D*;*’CL0SE PERSONALE" 

7509 

PRINT : PRINT D*;"0PEN CATA 

LOGO" 

7510 

PRINT D*;"WRITECATALOGO" 

7520 

PRINT 1 

7530 

PRINT D* ; “ CLOSECATALOGO" 

7540 

GOTO 20 

7900 

HOME : END 

9000 

REM ««EDITOR*# 

9010 

REM PARAMETRI INGRESSO 

9020 

REM ZT*=INTESTAZI ONE MENU 

9030 

REM ZC*O=N0ME CAMPI 

9040 

REM ZLO=LUNGH. CAMPI 

9050 

REM ZD*<>=CONTENUTO CAMPI 

9060 

REM N=NUMER0 CAMPI 

90 70 

REM MAX 9 CAMPI 

9080 

REM TUTTE LE VARIABILI 

9090 

REM INIZIANO PER <Z> 

9100 

2% = " 

II 

91 10 

zi* = "- 

II 

9120 

HOME : PRINT " ##** “; : 

INVERSE : PRINT ZT* ; : NORMAL 



: PRINT " #*«*" : PRINT 

: PRINT 

9130 

FOR ZH = 1 TO N 


9140 

INVERSE : PRINT ZC*<ZH> 
: PRINT “ "ZD*<ZH> 

; : NORMAL 

9150 

PRINT 


9160 

NEXT ZH 


9170 

VTAB 21: PRINT ZI* 


9173 

IF ZF = 2 THEN VTAB 23 

: PRINT 


"BATTI UN TASTO PER CONTINUA 


RE": PRINT "BATTI F PER 
RE ” ; : GET ZX* : RETURN 

USCI 

9175 

IF ZF = 1 THEN 9270 


9180 

FOR ZH = 1 TO N 


9190 

VTAB 23: PRINT 2% 


9200 

GOSUB 9310 


9210 

IF ZZ* = “■ THEN 9240 


9220 

ZD*(ZH) = ZZ* 


9230 

IF ZZ* = CHR* (6) THEN 

RETURN 

9240 

HTAB LEN <ZC*<ZH>> + 2 

: VTAB. 


X2 1 

X2 

X2 ! 

! 1 

1 

1 

1 ! 

! X2 

X2 

1 

1 ! 

! 1 

X2 1 

1 

1 ! 
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X2 

X2 

X2 ! 

! 1 

1 

1 

1 ! 

! 1 

1 X2 

X2 
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X2 
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1 

1 
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Figura 1 . Sviluppo del sistema di 4 triple 
relativo all'esempio riportato. 

e 4 doppie 


ne riviste specializzate, ho trovato il 
seguente sistema di 4 triple e 4 dop¬ 
pie, sviluppato in 99 colonne; tale 
sistema si può giocare molto rapida¬ 
mente (8 colonne da 3 doppie ciascu¬ 
na; 2 colonne da 4 doppie e 3 colon¬ 
ne semplici). In sintesi tale sistema, 
di cui dopo presenteremo lo svilup¬ 
po, si presenta così: 


1X2 


1X2 


1X2 

0-1 -2-3 errori su base 1 

1X2 

• 

IX 


IX 

0-1 segno x 

IX 

IX 

senza condizioni 


Ciò significa che le prime 4 partite 
sono delle triple, ma è necessaria l’u¬ 
scita di almeno un segno 1 (la prima 
colonna è la colonna base ed è costi¬ 
tuita da tutti 1; dallo schema si vede 
che rispetto a tale colonna si posso¬ 
no fare al massimo 3 errori, ciò si¬ 
gnifica l’uscita di almeno un 1 nelle 
prime 4 partite). Le partite 5 e 6 sono 
due doppie con la limitazione, però, 
di commettere al massimo 1 errore 


sulla colonna base, anch'essa costi¬ 
tuita da tutti 1. Le altre due doppie 
non hanno condizioni. 

Questo sistema è un sistema a cor¬ 
rezione di errori. Il giocatore può, a 
suo piacere, cambiare la colonna ba¬ 
se, avendo però l’accortezza di mo¬ 
dificare opportunamente i segni nel 
sistema sviluppato. Se per esempio 
pensiamo che il risultato più proba¬ 
bile nella prima partita sia X, la pri¬ 
ma tripla potrà essere X12; ciò signi¬ 
fica che nella prima riga dello svilup¬ 
po del sistema dovremo invertire i 
segni X con i segni 1. Lo stesso dicasi 
per le altre partite. Non è difficile, 
effettuando a mano tali sostituzioni, 
commettere degli errori pregiudi¬ 
cando ovviamente le possibilità del 
sistema. 

Per usare il programma la prima 
volta è necessario selezionare l’op¬ 
zione 5) del menu principale e cioè 
l’opzione Inizializza Archivio. 

Solo a questo punto è possibile ini¬ 
ziare ad inserire i sistemi. Scegliere 
perciò l’opzione 2) Accetta Sistema. 
A questo punto compare sul video 
una maschera cosi formata: 


Triple riduttore; 

Doppie riduttore; 

N. Colonne Schedina; 

N. Colonne Sistema; 

Note 1; 

Note 2; 

Note 3; 

Note 4; 

Note 5. 

Tale maschera va riempita in modo 
da rendere chiare le caratteristiche 
del sistema che si sta per inserire. 
Nell’esempio appena visto tale ma¬ 
schera potrà essere riempita nel se¬ 
guente modo: 


Triple riduttore 4 

Doppie riduttore 4 

Numero colonne schedina 13 

Numero colonne sistema 99 


Note 1 0-1-2-3 errori sulle 4 triple; 
Note 2 0-1 errore sulle doppie; 

Note 3 ultime doppie senza 

condizioni; 

Note 4 struttura sistema; 

Note 5 4 triple/2 doppie/2 doppie. 

Il campo Numéro Colonne Schedi- 
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Seguilo listalo Totocalcio. 

3 + 2 * ZH - 1 : PRINT LEFT* 
(Z*,39 - LEN (ZC*(ZH))) 

9250 HTAB LEN (ZC*(ZH)) + 2: VTAB 
3 + 2 * ZH - 1 : PRINT ZD*(ZH 
) 

9260 NEXT ZH 

9270 VTAB 23: PRINT Z* : OTAB 23: 
PRINT "CONFERMATO (S/N) ?" ; 

: GET ZX4>: PRINT 

9275 IF ZF = 1 THEN ZF = 0: RETURN 

9280 IF ZX* = "N" THEN 9120 
9290 IF ZX$ < > "S" THEN 9270 

9300 RETURN 

9310 REM ** INSERT DATA ** 

9320 ZR$ = : FOR ZK = 1 TO ZL(Z 

H):ZR* = ZR* + CHR* (95): NEXT 
ZK 

9330 VTAB 23: PRINT ZC$(ZH)" "ZR 

% 

9340 VTAB 23: HTAB LEN (ZC*(ZH) 

) + 2 

9350 ZS* = "" :2Z% = "" :ZI = 0 


93é0 

ZI = ZI + 

1 


9370 

GET ZZ* 



9380 

IF ZZ* = 

CHR* (8) AND (ZI = 


1 OR ZI = 

0) THEN 9330 


9390 

IF ZZ* = 
70 

CHR* (21) THEN 

93 

9400 

IF ZZ* = 

CHR* (8) AND ZI 

= 


2 THEN PRINT 2Z$;: PRINT 

CHR* 


(95): : PRINT 11%\ :ZI = ZI 

- 


1:ZS*> = "" 

: GOTO 9370 


9410 

IF ZZ* = 

CHR* (8) THEN 

PRINT 


ZZ$: : PRINT CHR* (95);: PRINT 


ZZ* ; :ZI = 

ZI - 1:ZS* = LEFT* 


(ZS*,ZI - 

1): GOTO 9370 


9420 

IF ZZ* = 

CHR* (44) OR ZZ* = 


CHR* (58) 

THEN 9370 


9430 

IF ZZ* = 
70 

CHR* (13) THEN 

94 

9440 

IF ZZ* = 

CHR* (6) THEN 

RETURN 

9450 

ZS* = ZS* 

+ ZZ$: PRINT ZZ* 

5 

9460 

IF ZI < ZL(ZH) THEN 9360 


9470 

ZZf = ZS*: 

ZS* = "" 


9480 

REM 



9490 

RETURN 



10000 

PRINT : 

PRINT D$;"OPEN COM 


MENTO,L200 

II 


10010 

PRINT D* 

; "READ COMMENTO, 

R" 


NN 



10020 

FOR I = 

1 TO 9: INPUT ZD*( 


I): NEXT I 



10030 

PRINT 0* 

;"CLOSECOMMENTO" 


10040 

RETURN 




na sta ad indicare non il numero di 
colonne del sistema, ma il numero di 
colonne che è necessario riempire. 

Il campo Numero Colonne Sistema 
indica invece proprio il numero di 
colonne dello sviluppo. Il primo 
campo ci dice quante colonne dob¬ 
biamo trascrivere, il secondo è inve¬ 
ce indice del costo del sistema. Una 
volta inserite le caratteristiche del 
sistema, il programma chiede di in¬ 
serire lo sviluppo vero e proprio (fi¬ 
gura 1). 

A questo punto termina la fase di 
inserimento. 

Per giocare un sistema precedente- 
mente inserito occorre scegliere l’op¬ 
zione 3) Gioca Sistema del menu 
principale; a questo punto il pro¬ 
gramma chiede il numero del siste¬ 
ma che si vuole giocare. Una volta 
inserito il numero del sistema com¬ 
pare la descrizione del sistema stes¬ 
so, cosi come era stata precedente- 
mente inserita. Un’ulteriore confer¬ 
ma permette di inserire il pronostico 
relativo alle 13 partite della schedina 
e condizionato al sistema che si è 
deciso di giocare. 


Oltre al pronostico, per ogni par¬ 
tita che non sia una fissa, occorre 
indicare anche a quale riga dello svi¬ 
luppo del sistema si fa riferimento 
(battere Return per le fisse). 

E’ importante perciò essere molto 
chiari quando si introducono le ca¬ 
ratteristiche del sistema, in maniera 
tale da poter ottenere dalle caratteri¬ 
stiche del sistema uno schema preci¬ 
so e poter cosi adattare il pronostico 
al sistema nel modo più conveniente 
possibile. 

Accendere a questo punto la stam¬ 
pante e attendere qualche istante 
prima di avere lo sviluppo del siste¬ 
ma pronto per essere ricopiato sulle 
schedine. 

L’ultima opzione del menu principa¬ 
le non ancora esaminata è l’opzione 
4) Catalogo. Essa ci permette di ave¬ 
re l’elenco con le caratteristiche di 
tutti i sistemi presenti in archivio. 

Breve commento al programma 

Tralasciamo ovviamente le linee 
di programma già commentate nel 


numero precedente. 

5000-5460 - Subroutine che permet¬ 
te di giocare il sistema precedente- 
mente inserito. 

5490-6180 - Routine che permette 
l’inversione del segno in funzione del 
pronostico inserito. 

6190-7100 - Routine che permette di 
inserire lo sviluppo del sistema. 
9000-9490 - Subroutine usata per 
l’inserimento e la visualizzazione 
delle caratteristiche del sistema. 


File usati 

Commento - (contenente le caratteri¬ 
stiche del sistema) 

Personale - (contenente i sistemi che 
via via vengono inseriti). 

Un ultimo consiglio: per verificare 
l’esattezza dei sistemi inseriti si può 
usare la routine Leggisist pubblicata 
nel numero precedente. Lasciamo al 
lettore la semplice modifica di tale 
routine, per adattarla alla stampa 
del file Personale. ■ 
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Oroscopo 

per Spectrum 


Come prevedere il futuro 


di Ivano Parbuono 


Introduzione 

F in dai tempi più remoti uomi¬ 
ni e donne si sono dedicati 
allo studio e alla conoscenza 
dei segni dello zodiaco per poi appli¬ 


carli in varie forme effettuando le 
più disparate previsioni future. Chi 
di noi, anche se magari sostiene di 
non crederci, non ha letto almeno 
una volta un oroscopo, visto che an¬ 
che i quotidiani pubblicano regolar¬ 
mente questa rubrica, per non parla¬ 
re poi delle radio e delle televisioni, 
siano esse pubbliche o private; ebbe¬ 
ne, crediamo che nessuno si sia, po¬ 
tuto sottrarre a questo tipo di previ¬ 
sione più o meno veritiera. Ma se 
durante la settimana (fatalità) una 
cosa che vi era stata predetta si do¬ 


vesse avverare colui che crede in 
queste cose direbbe “L’Oroscopo 
l'aveva previsto.” mentre lo scettico 
direbbe a sua volta “E’ una pura 
casualità”. E’ sotto il segno di questa 
casualità che è nata l’idea di realiz¬ 
zare con lo Spectrum un oroscopo 
che può andare bene per quelli che ci 
credono e può essere un fatto curio¬ 
so per quelli che invece non ci credo¬ 
no. Noi lasciamo a voi l’eterno di¬ 
lemma “Crederci o non Crederci” 
una cosa è certa: non chiedete due 
volte al vostro Spectrum l’oroscopo 


Listato I. //programma Oroscopo. 


8 PRINT *•*' 

IRIBRIIIIIII ii 

9 PRINT 

■ Il 

10 PRINT 
NE SPECTRUM» * 
O PRRBUONO »" 

11 PRINT "■ 

■ » 


■*OR0SCOPO*“ UERSIO 
RERLIZZflTO DO IUON 




20 

25 

115 

120 

125 

130 

160 

165 

170 

171 

172 

T/ar 

174- 

175 

176 

177 
176 
179 
16© 
181 

185 

186 
188 
190 
195 
200 
205 
210 
211 
212 


PRINT "DOTO DI NOSCITR’' 

GO SUB 700 
DIM P$ ( 12 , 10.1 
FOR 1=1 TÓ 12 
READ P$(I) 

HEXT I 
LET I=M 
LET L =20 
GO TO 190 
GO TO 190 
GO TO 188 
ULTI U' X9ei 
GO TO 188 
GO TO 188 
GO TO 186 
GO TO 185 
GO TO 185 
GO TO 185 
GO TO 186 
GO TO 185 
LET L=L + 1 
LET L=L +1 
LET L=L+1 

IF U<L THEN GO TO 200 
LET 1=1+1 

IF I< =12 THEN GO TO 210 
LET 1=1 

PRINT "TU SEI ";P*fI>; 
PRINT _ 


PRINT 


213 GO SUB 765 
214- PRINT : PRINT 
215 PRINT ;;ORO STO 


PRINT 

INTERPELLflND 


216 PRINT • 


218 PRINT "FRR POCHI SECONDI 
TI ORRO' IL TUO OROSCOPO 


pttI S—" 

219 PRINT "llllllllllllllllllll 

sainmiir 

220 PRINT 

221 GO TO 800 

225 DATA "CAPRICORNO","ROUARIO” 
,"PESCI","RRIETE" 

230 DATA "TORO","GEMELLI","CANC 
RO"j"LEONE" 

235 DATA "UERGINE","BILANCIA"/" 
SCORPIONE","SBGITTBRIQ" 

725 PRINT "GIORNO DB 1 fi 31" 

726 INPUT J 

727 LET J=INT U 

728 PRINT "GIORNO ";U 

730 IF J<1 OR «J >31 THEN GO TO 7 
25 

732 GO SUB 780 

735 PRINT "MESE (DA 1 R 12)" 

736 INPUT M 

737 LET M=INT M 

74-0 IF M < 1 OR M > 12 THEN GO TO 7 
35 

741 PRINT "MESE";M 
74-5 PRINT "RNNO" 

74-6 INPUT L 

74-7 LET L = INT L 

74-6 IF L<0 THEN GO TO 74-5 

752 LET L=L+1900 

755 PRINT "Ufi BENE ; L 

760 RETURN , _ 

766 PRINT " PER QURLE 5ETTIM 
RNR UUOI L'OROSCOPO?" 

768 PRINT "+mese l-12s*setti man 
a 1 -2-3-4- + " 

770 PRINT 

* ^72* GO* SUB 74-5 
773 GO SUB 4-500 

-7_7,v ..{?(->. ,-j-n. ~7S1 

778 PRINT "PER FAOORE HO DETTO 
SETTIMANA 1 -2-3-4. " 

780 RETURN 

782 INPUT "SETTIMBNR? ";X 

786 IF X<1 OR X >4- THEN GO TO 50 

00 _ 

788 PRINT "SETTIMBNR ";X 

789 GO TO 214 

800 DIM At(10 j 70) : DIM B*{10,70 
): DIM C*tÌ0#70): DIM D*fl0,70): 
DIM E*(10,32) 

810 GO SUB 3900 

830 FOR K =1 TO 1000: NEXT K 

850 LET fi*(1)="©UESTO PERIODO P 
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“♦OROSCOPO*™ VERSIONE SPECTRUM* 
RERLIZZRTO DR IVANO PARBUONO ■ 


DRTR DI NRSCITR 
GIORNO DR 1 R 31 
GIORNO 29 
MESE (DR 1 R 12) 

MESE11 
RNNO 

OR BENE,1961 
^^Sg^^^SfiGXT^JRIO 


PER 

♦mese 


©UREE SETTIMRNR OUOI 
L'OROSCOPO'? 

1 - 12 ♦♦settimana 1-2-3-4-* 


ANNO* 


Figura 1. Rappresentazione grafica 
della prima videata. 


OR BENE,1951 _ 

T^^SE^^^SRGJrn-RRIO 

PER OURLE SETTIMRNR OUOI 
L'OROSCOPO? 

♦mese l-i2**se 11 i mana 1-2-3-4-a 

m& m ■•■■■■■■■■■■■■ 

OR BENE, 1984. 

MESE (DR 1 fl 12) 

MESE* 

SETTIMRNR 3 


FRA POCHI SECONDI TI DRRO' IL 
TUO OROSCOPO -BRTTI S- 

KIIIIIIIIII8IIIIIIIIIIIlllllllll 


Figura 2. Rappresentazione della seconda videata. 


SETTIMRNR ORRIR MR INTERESSRNTE 
PER OOI, 

UNR OOSTRR INIZIRTIUR POTRR'ESSE 
RE PORTRTR R BUON PUNTO 

LE SCELTECHE UI INTERESSANO NON 
SRRRNNO OSTACOLATE DR NESSUNO 

RAPPORTI CON PERSONE PER MOTIOI 
DI LROORO,INTERESSANTI 

UN UIAGGIO PROBABILE O UNR GITR 


WJVWWWWVWWWWMVWVWi 

SPERO CHE GLI ASTRI SIANO STATI 
R TE FAOOREOOLI 


Figura 3. Stampa dell’oroscopo. 


Seguito listato Oroscopo 

REOEDE QUALCHE SECCATURA DI NATU 
Rfl SENTIMENTALE" 

852 LET A$ (2) «"SETTIMANA RICCA 
DI FATTI NUOOI,GENERALMENTE PIAC 
EOOLI" 

854- LET A* (3) « " IL CIELO DI QUES 
TA SETTIMANA UI E' PARTIC-OLARMtN 
TE FRUOREUOLE" 

856 LET R* (4.) «"QUESTO PERIODO S 
I ANNUNCIA INTERESSANTE E POSITI 
UO" 

858 LET A*(5)«"POTETE IN QUESTI 
GIORNI TROVARE L'ACCORDO CHE VI 
STA A CUORE" 

900 LET A*(6)="UNA CERTA VOSTRA 
INIZIATIVA PRATICA POTRÀ'REALIZ 
ZARSI PIENAMENTE" 

902 LET A*(7)="Lfl SETTIMANA NON 
PROMETTE GRAN CHE PER VOI." 

904- LET A* (8) «"SEMBRA CHE QUEST 
O PERIODO NON SIA MOLTO FAUOREUO 
LF PER VOI" 

906 LET A$ (9) «"OTTIME COSE SPEC¬ 
IE DAL LATO PRRTICO SONO SEGNATE 
PER VOI" 

908 LET A*(10)="SETTIMANA VARIA 
MA INTERESSANTE PER VOI, 

QD0 LET B$ ( 1) «"LA SETTIMRNR E 
SEGNO DE1 _ DINAMISMO" 

922 LET 11(2)="IL FINE SETTIMAN 

r1 ? MOLTO VARIABILE,NIENTE DI NE 

G 924 U LET B*<3>=’UN MIGLIORAMENTO 
E'PREVISTO DAL LATO SENTIMENTRL 



°930 R LET B*(6)="UNR VOSTRA INIZI 
ATIVR POTRfi'ESSERE PORTATA A BUO 
m PUNTO" 

932 LET B*(7)«"DOVRETE CERCARE 
DI NON REAGIRE IMPULSIVAMENTE A 
EVENTUALI CONTRARIETÀ'" 

934- LET B$ (8) «"SIATE ATTENTI NE 
L TRATTARE ARGOMENTI SCABROSI CO 
N IL VOSTRO PORTENE»" 

T i 3 i E tS^Ì^?0r.- E ormT E 01 dove 

R RIMANDARE UNA COSA CHE VI STA 
A CUORE" 

950 LET C$(l)="Lfl SETTIMANA NON 
PROMETTE GRAN CHE,MA STARA'A VO 
I RENDERLA INTERESSANTE" 

952 LET C*(2)«"POSSIBILITÀ' NUO 
VE POTRANNO VERIFICARSI SU UN CE 
RTO PROGETTO" 

954. LET C* (3) «"PERIODO UN PO' I 
NCOSTANTE MA DOMINATO DA UN CERT 
O DINAMISMO" 

956 LET C $ (4.) = " IL PROGRAMMA CHE 
AVETE IN MENTE POTRÀ' SUBIRE UN 
CERTO CAMBIAMENTO" 

958 LET C*(5)«"FARETE BENE A NO 
N SOTTOVALUTARE I PARERI DEGLI A 
MICI" 

960 LET C*(6)«"CERCATE DI SUPER 
ARE UNA CERTA INSTABILITÀ' DI UM 
ORE CHE E'IN VOI" 

962 LET C*(7)«"PICCOLE NOIE E O 
UALCME GRATTACAPO NON RIUSCIRANN 
O AD AVVILIRVI" 

964- LET C* (8) «"POSSIBILITÀ' NUO 
VE VERRANNO A FAVORIRE UNA VOSTR 
A INIZIATIVA" 

966 LET Ci(9)="LE SCELTECHE VI 
INTERESSANO NON SARANNO OSTACOLA 
TE DA NESSUNO" 

968 LET C*(10)«"CONDIZIONI DI S 
PIRITO FAVOREVOLI PER DECISIONI 
IMPORTANTI" 

1000 LET D 4(1) ="IN AMORE AVRETE 
UN INCONTRO VERAMENTE PIACEVOLE 
E GRADITO” 

1002 LET D*(2)="LA SETTIMANA FAV 
ORISCE OGNI VOSTRA ASPIRAZIONE" 
1004- LET D* (3) «"RAPPORTI CON PER 

Ione per motivi di lavoro,intere 

SSfìNTI M 

1006 LET D* (4.) «"SUPERERETE CON D 
ISINVOLTURA UN PICCOLO PROBLEMA" 


66 





















AFFIDA I TUOI DATI 


Come editori di 
software, abbiamo 
sentito l'esigenza di 
ulilizzare.per la produ 
zione dei nostri progrom 
mi, un supporto particolor 
mente affidabile. Dopo severi 
ed accurati test abbiamo opera¬ 
lo lo scelto. Siamo lieti di propor 
lo con il nostro marchio o chiunque 
desideri lovorare con la nostra stessa 
tranquillità. Floppy disk da 5" 1/4, sin¬ 
gola faccio, doppia densità, in confezione 
da 10 dischetti. Ordine minimo 10 dischetti. 
Ordini superiori solo multipli di 10 secondy la 
seguente scala di prezzi 
IO dischetti L. 5.000 cad. 

da 20 a 50 dischetti L. 4.700 cad. 

da 60 a 100 dischetti l. 4.400 cad 

do 110 dischetti e oltre L. 3.900 cad. 

I prezzi sono comprensivi di IVA e spese di spedizione. 


UN SUPPORTO SICURO 


Per ordinare ritagliate e spedite il tagliando sotto riportalo a 
J soli Viale Restelli, 5 - 20124 Milano 
Tel. 02/6888228 683797 6880841 6880842 6880843 




10 J[ disk 


CEDOLA DI ORDINAZIONE OFFERTA DISCHETTI 

Da compilare e spedire in busto chiuso a 
J. soli - Viale Restelli, 5 - 20124 Milano 
Tel. 02/6888228 - 683797 - 6880841 - 6880842 • 6880843 


Ordino i seguenti dischetti, in confezione do 10 pezzi cad., per un importo 
totale di L. IVA e spese di spedizione incluse. 

□ N.dischetti (minimo IO e multipli di IO) 

□ Contanti allegati 

□ Assegno allegato n° . 

□ Ho spedito l'importo a mezzo vaglia postale 

□ Ho versato l'importo sul CCP n° 19445204 intestato a J. soli - Milano 

□ Pagherò in contrassegno al postino al ricevimento dei dischetti 


Nome . 

Cognome . 

Via . 

CAP . Cittò . 

Se richiesta fattura - codice fiscale 

Data . Firma ... 

Offerta valida solo per l'Italia. 


Prov. 





















Oroscopo 
per Spectrum 

della stessa persona per lo stesso pe¬ 
riodo: potreste rimanere turbati e 
confusi. 

Che gli astri siano con voi. 

Il programma 

Come abbiamo fatto per gli altri 
programmi anche per questo dell’o¬ 
roscopo faremo un’analisi più o me¬ 
no approfondita del programma 
stesso, il quale è diviso a sua volta in 
due programmi: uno per stabilire il 
segno zodiacale al quale si appartie¬ 
ne e uno per prevedere il futuro di 
una settimana di un qualsiasi mese o 
anno dal 1900 in poi. Condizione 
indispensabile perchè il programma 
funzioni è quella di dare Panno con 
gli ultimi due numeri; esempio: scri¬ 
vere 1951 è errato, mentre è esatto 
scrivere 51. Premesso questo passia¬ 
mo all’analisi delle righe che com¬ 


pongono il programma stesso. Ini¬ 
ziamo con le linee 8-12 che danno sul 
video una presentazione, per passa¬ 
re poi alla linea 20 che chiede la data 
di nascita. Da questa si passa poi 
alla subroutine di linea 725 che di 
seguito chiede il giorno il mese e 
l'anno (ricordandosi di scrivere solo 
gli ultimi due numeri). Dopo aver 
inserito questi dati il programma ri¬ 
torna alla linea 115 per fare determi¬ 
nati calcoli stampando poi sul video, 
per mezzo della linea 210, il segno 
zodiacale al quale appartiene la per¬ 
sona in oggetto. Quindi il program¬ 
ma passa alla linea 766 e chiede per 
quale settimana si vuole l'oroscopo; 
a questo punto si ritorna alla linea 
745 chiedendo l’anno (sempre scri¬ 
vendo solo gli ultimi due numeri); in 
questo caso il computer risponderà 
stampando l’anno esatto che si vole¬ 
va richiedere. Dopo questo il pro¬ 


gramma va a leggere la linea 773 che 
a sua volta lo rimanda alla subrouti¬ 
ne di linea 4500 chiedendo ancora il 
mese. Inseriti questi dati il program¬ 
ma va alla linea 782 chiedendo la 
settimana per la quale si desidera 
conoscere l’oroscopo; dopo aver in¬ 
serito anche questo dato appare sul 
video la scritta: “ Ora sto interpellan¬ 
do gli astri" "Fra pochi secondi ti 
darò il tuo oroscopo"; dopo aver bat¬ 
tuto S il programma, per mezzo del¬ 
la linea 830 crea una pausa e le linee 
comprese tra la 2000 e la 2015 scel¬ 
gono, in funzione del valore di Rnd, 
tra le descrizioni che vanno dalla li¬ 
nea 850 alla linea 1068, lasciando il 
compito di stampare sul video l’oro¬ 
scopo alle linee comprese tra la 2500 
alla 2540. A questo punto il compu¬ 
ter stampa un suo augurio e termina 
così il programma oroscopo realiz¬ 
zato per Spectrum 48 Kbyte. ■ 



Seguito listato Oroscopo 


1008 LET D $(5) =“IN QUESTO PERIOD 
O • AVRETE -AMCHE. -DE I -MOMENTI -CR-XTX 
CI,SIRTE FORTI" 

101® LET D*="PREUE0I6ILI VANT 
SGGT • DI -ORD-S-NC--ECONOMICO" 

1012 LET D$(7)="NEI RAPPORTI CON 
Lfl PERSONA RMRTR EVITATE DI5CUS 
SIONX TROPPO ACCESE" 

1014- LET D$ (8) ="RVRETE OCCASIONE 
IN SETTIMANA DI INCONTRARE UNA 
PERSONA R VOI CARA" 

1016 LET D$(9)="APPIANATE LE INC 
OMPRENSIONI POTRESTE INCORRERE N 
A ROTTURA DI RAPPORTI" 

3.018 LET D$(10)="UI SARA ' ANCHE F 
ATT A "CfNhT ■PRUPITST (-T SULLl-r'QUALE" 1>U 


CRETE MEDITARE 
1050 LET E* < 1) = 
DI-LE • O -UNA GITA 
1052 LET E$(2) = 
OTATrtJ" 

1054. LET E $ ( -3 ) = 
PIACEVOLE" 

1056 LET E$ <40 = 
ANTI IN ARRIVO" 
1058 LET Est; (SI = 
SETTIMANA" 

1060 LET E*(6)= 
'3RAD1T A 11 
1062 LET E$(7) = 
TO IN ARRIVO" 
1064 LET E$(8) = 
INCONTRI" 

1066 LET B$ (9 )= 
SANDO A VOI" 
1068 LET E*(10) 
PENDERE TROPPO" 
2000 LET A1=INT 
BisINT (RNDS10) 
3010 ILE T~ C1 = INT 
DI=INT (10*RND) 
2015 LET E1=INT 


MOLTO" 

"UN VIAGGIO PROBA 
UN PIACEVOLE INC 
"FINE SETTIMANA 
"NOVITÀ' INTEAESS 
"ATTENTI AL FINE 
"UNA VISITA MOLTO 
"BUONE NUOVE PRES 
"ATTENZIONE AGLI 
"OUALCUNO STA PEN 
="ATTENTI A NON S 
(RND*10)+1: LET 

■f 1 

'd<jnfRMD)>l : UT 
■hi 

( 10 s-RND) +1 


PRINT 


2500 PRINT A$(Al) 

2510 PRINT B$CB1) 

2520 PRINT C$(C1) 

2530 PRINT Dsfc (DI) 

2540 PRINT E$(E1) 

3000 PRINT : PRINT 

ll!l 

3017 PRINT 

-SPERO CHE GLI ASTRI 
A TE FAUOREVO 
*****CIAO CIAO IL CO 


3020 PRINT ' 

SIANO STATI 
LI 

MPUTER** ***' 

3025 PRINT | 

3030*' , PRINt' , #0ì "PREMI UN TASTO PE 
R CONTINUARE ": PAUSE 0 
3050 CLS PRINT AT 8.. 4; BRIGHT 
l;"ALTRI VOGLIONO CONOSCERE";AT 
io.ia: M TL futuro'?" ; AT 14,12; "(Y/ 


VW/^VVW^VWVWA 


N) " 

3060 INPUT T$ 

3080 IF TS="Y" THEN GO TO 6000 
3090 IF T*="y" THEN GO TO 6000 
3100 PAUSE 200: CLS : PRINT AT 1 
2 , 14;"CIAO": STOP 

4000 INPUT Z*: IF Z*="" THEN GO 
TO 4000 
4100 RETURN 

4500 PRINT "MESE (DA 1 A 12)" 
4510 INPUT M 
4520 LET M=INT M 

4530 IF M <1 OR M >12 THEN GO TO 7 
35 

4540 PRINT "MESE";M 
4550 RETURN 

5000 PRINT "*******PER FAVORE HO 
DETTO*-*** ********* s-SETT IMAN A 1- 
2 —3 —4 a-*-*-*-*-*" 

5010 GO TO 782 

6000 PRINT 80;"PREMI UN TASTO PE 
R CONTINUARE 
6100 PAUSE 0: RUN 
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♦ve. 



JL/a battaglia 
del lago ghiacciato 
per C 16 


Come far passare 

un cammello 

per la cruna di un ago 


di Angelo Molla 


A nche se il sottotitolo può 
sembrare eccessivo, con¬ 
vertire il maxi programma 
di Giovanni Umberto Barzaghi, 
scritto per i Commodore 3032/4032, 


apparso sui numeri 17 (articolo) e 18 
(listato e REMarks) di Personal Sof¬ 
tware, non è stata certamente cosa 
facile. Basta infatti dare un semplice 
sguardo al programma originario, 
che occupa circa 10 Kbyte per il li¬ 
stato e circa 12 Kbyte per le variabi¬ 
li, per rendersi conto che i “12277 
Bytes Free” del C 16 sono veramente 
pochini. Pertanto, non me ne voglia 
l’autore per i tagli e le modifiche 
apportate che hanno sovvertito l'or¬ 
dine di un programma veramente 
ben fatto, ma era l’unico sistema per 
poter far entrare il tutto nella limita¬ 
ta memoria a disposizione e mante¬ 


nere la stessa grafica ed impostazio¬ 
ne di gioco. 

La stesura del nuovo programma 
ha visto due fasi successive: la prima 
riguardante la conversione delle i- 
struzioni personalizzate dei Com¬ 
modore 3032/4032 (Peek e Poke); la 
seconda tendente ad avere il mag¬ 
gior risparmio di byte in modo da 
rendere funzionante il programma. 
Per quanto riguarda la prima fase, le 
uniche locazioni di memoria interes¬ 
sate da istruzioni Poke e Peek sono 
quelle riguardanti la mappa video 
che nella serie 3032/4032 è ubicata a 
partire dalla locazione $8000 (deci- 


Listato I. Il programma La battaglia del lago ghiac¬ 
ciato. I tasti grafici e speciali sono stati racchiusi tra i 
simboli < > , all'interno di parentesi quadre e precedu¬ 
ti da un numero che specifica quante volte occorre 
digitare quel determinalo caratere. Es [ <8CRSR 
D> ]. digitare per 8 volte il tasto di spostamento verso 

11 basso del cursore. Per i caratteri grafici viene indica¬ 
to il codice ASCII corrispondente; consultare il ma¬ 
nuale per la conversione. 

1 POKE51,44:POKE52,58:POKE55,44 :P0KE56,58 
:GN=81:RN=87:GR=209:RR=215:NR=60:NG=30 
5 DIMW$(24),R%(NR,4),G%(NG,4),AM%(9,4),NE 
% (9,4) :W$(1)="(<1H0ME>]":MV=3072:MG=960 
10 F0RI=2T024:W$(I)=W$(1-1)+"[<1CRSR D>)" 

:NEXT: TP(0)=1:TP(1)=-l:R6=NR:G6=NG:PR=NR: 
PG=NG 

12 TY$ = "I CAVALIERI ":TX$="SONO STATI DIS 
ARCIONATI":MR=480 :COLOR4,1 4,3 

13 YT$ = "I CONTADINI ":XT$="SONO STATI FER 
ITI"SCOLORO,14,3 :COLORI,4 

16 DATA2,10,3,10,4,10,5,10,6,10,10,7,11,7 
,12,7,13,7,14,7 

17 DATAI 8,5,1 9,5,20,5,21 ,5,22,5,2,9,3,9,4 
,9,5,9,6,9 

18 DATAI 0,6,11,6,12,6,13,6,14,6,18,4,19,4 
,20,4,21,4,22,4,2,7,3,7,4,7,5,7,6,7 

19 DATAI 0,4,1 1 ,4,12,4,13,4,14,4,24,5,25,5 
,26,5,27,5,28,5,2,5,3,5,4,5,5,5,6,5 

20 DATA32,2,34,2,35,2,34,1,35,1,18,2,19,2 
,20,2,21,2,22,2 

25 FORI=lTONR:READR%(1,2):READR%(I,1):R%( 
1,0)=6:R%(1,3)=2:NEXT 

26 DEFFNZ1(F)=Yl*37+Xl+F*740+l4855:DEFFNZ 
2(F)=Y0*37+X0+F*740+14855 


27 DEFFNZ3(F)=Y*37+X+F*740+14855:DEFFNZ4( 
F)=AM%(Z,l)* 37+AM%(Z,2)+1 48 55 

28 DEFFNZ5(F)=NE%(Z,1)*37+NE%(Z,2)+14855 
37 DATAI,12,2,12,1,13,2,13,1,14,2,14,2,18 
,3,18,4,18,5,20,6,20,7,20,8,20 

40 DATA9,20,10,20,11,20,12,20,13,20,14,18 
,15,18,16,18,18,16,19,16,20,16 
43 DATA21,16,22,16,23,16,37,3,37,4,37,5 
45 FORI=1TONG:READG%(1,2):READG%(I,1):G%( 
1,0)=30 :G%(1,3)=16:NEXT:CR=1 :CG=1 
50 DATA36,"-[<1CHR$(206)>]",33,"-[<1RVS> 

) [<1CHR$(169)>) [<1RVS OFF>]",31[<1 

RVS>)[<1CHR$(169)>] [<1RVS OFF>]",30, 

"— [<1RVS>] [<1CHR$ (1 69) >] (< 1 RVS OFF 

>1",30,"-[<1RVS>](<1CHR$(169)>] [<1R 

VS OFF>1(<1CHR$(169)>]" 

53 DATAI 9, " (<1 RVS>] [<1CHR$ (1 69) >] [<1CH 

R$(223)>][<1RVS OFF>] - --(<1RVS>) 

(<1RVS OFF>][<1CHR$(169)>]-",16,"[<1 

RVS>](<1CHR$(169)>] [<1CHR$(223)>][< 

1RVS OFF>] - [<1RVS>] [<1CHR$(223 

)>][<1RVS OFF>] 

55 DATAI 3,"[<1RVS>] [<1CHR$(169)>) 

(<1CHR$(223)>1[<1RVS OFF>]- [<1R 

VS>][<1CHR$(169)>] [<1RVS OFF>l-",9," 

[<1RVS>][<1CHR$(169)>] [< 

1RVS OFF>]-- [<1RVS>] [<1RVS OFF>][< 

1CHR$(169)>)--" 

57 DATA8,"[<1RVS>][<1CHR$(169)>] 

[<1RVS OFF>](<1CHR$(169)>]-- 

-", 1,"(<2CHR$(183)>] [<1RVS>] 

[<1RVS OFF>](<1CHR$(169)>]-- 

_ _ Il 

60 DATA3,"(<1RVS>] 

[< 1 RVS OFF>]-",3," [<1RVS>] 

[<1RVS OFF>)[<1CHR$(169)>] 

II 
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Seguilo listato Lago ghiacciato. 

63 DATA3,"[<1RVS>] [C1RVS O 

FF>][<1CHR$(169)>] [<1CHR$(223)>)[<1RVS 

>] [<1RVS OFF>][<1CHR$(169)>] 

1RVS>] K1RVS OFF>][<1CHR$(1 

69)>) " 

65 DATA3,"[<1CHR$(223)>][<)RVS>] 

[<1RVS OFF>]", 4,"[<1CHR$(223)>][<1RV 
S>] [<1RVS OFF>)[<1CHR$(169)>]", 

5,"[<1CHR$(223)>][<1RVS>] (<1RVS 

OFF>][<1CHR$(169)>]",6,"[<1CHR$(223)>][<1 
RVS>) [<1RVS OFF>][<1CHR$(169)>)" 

82 INPUT"[<1CLR>]PARTITA IN CORSO";R$:IFL 
EFT$(R$,1)="N"THEN95 

85 OPENl,1,0 : INPUT#),CR:INPUT#1,CG:INPUT# 
1,PG: INPUT#1,PR:INPUT#),MC$: INPUT#),JK$ 

86 INPUT#1, JG$ :FORI = 1 4 893T01 63 72 : INPUT# 1 , 
QQ:POKEI,QQ:NEXT:INPUT#!,R6:INPUT#1,G6 

87 F0RI = 1TONR:FORJ = 0TO4: INPUT#!,R%(I,J) :N 
EXT :NEXT: FORI = 1TONG:FORJ = 0TO4 

88 INPUT#!,G%(I,J):NEXT:NEXT:CLOSEl 

89 GOSUBl0900 :FORX1=1T03 7:FORYl=1TO20: POR 
EMV+Y1*40+Xl,PEEK(FNZ1 (0)) :NEXT:NEXT: GOTO 
1 55 

95 PRINT"[<1CLR>]SCEGLI :":PRINTW$(4)"R-"Y 
T$;"RUSSI":PRINTWS(6)"G-"TY$;"TEUTONICI" 

96 GETR$:IFR$=""THEN96 

97 IFR$0"G"ANDR$0"R"THEN96 

98 JG$="R":JK$="G":IFR$="G"THENJG$="G":JK 
$ = "R" 

! 00 PRINT"[<1CLR>]":PRINT: FORI = 0TOl 8:READ 
T:READC$:PRINTW$(1+2)TAB(T)C$:NEXT 
110 GOSUBl 0900 :FORXl=1T037:FORYl=lTO20 
140 POKEFNZ1(0),PEEK(MV+Y1*40+Xl):IFPEEK( 
FNZ1(0))<>160THENPOKEFNZ1(1 ) ,99:G0T0147 
145 POKEFNZl(1),15+1NT(RND(RND(TI)+RND(X1 
) +RND(Yl))*11) 

1 47 IFPEEK(FNZl (0) ) =4 5THENP0KEFNZ1 (1) ,90 
150 NEXT:NEXT 

1 55 FORI = lTONR:Cl=RN:IFR%(1,0)<-3THENl59 

156 IFPEEK(MV+R%(1,1)*4 0+R%(1,2))=1 60THEN 
CI =RR 

157 POKEMV+R%(I,1)*40+R%(I,2),C1 


159 NEXT 

160 FORI=lTONG:Cl=GN:IFG%(I,0)C-3THEN169 

163 IFPEEK(MV+G%(1,1)*40+G%(I,2))=160THEN 
CI =GR 

165 POKEMV+G%(1,1)*40+G%(1,2),C1 
169 NEXT:IFMC$="G"THENl95 
175 IFR%(CR,0)<=0THENl90 

177 IFR%(CR,4)>0THENR%(CR,4)=R%(CR,4)-1:G 
OTOl90 

180 C$="R":GOSUB500:GOSUB38000 
190 CR=CR+1:IFCR>NRTHENCR=1 
195 IFG%(CG,0)<=0THEN210 

197 IFG%(CG,4)>0THENG%(CG,4)=G%(CG,4)-1:G 
OT0210 

200 C$="G":GOSUB500:GOSUB38000 
210 CG=CG+1:IFCG>NGTHENCG=1 
220 GOSUB4000:GOTOl75 

500 IFC$="G"THENNC=GN:RC=GR:X=G%(CG,2):Y= 
G%(CG,1):P=G%(CG,3) 

515 IFC$="R"THENNC=RN:RC=RR:X=R%(CR,2):Y= 
R%(CR,1):P=R%(CR,3) 

520 X0=X:Y0=Y:GOSUB5000:IFC$=JK$THENGOSUB 
6000 :GOTO540 
530 GOSUBl000 

540 IFC$="R"THENR%(CR,2)=X:R%(CR,1)=Y 
550 IFC$="G"THENG%(CG,2)=X:G%(CG,1)=Y 
560 GOTO8000 

600 ONDRGOT0610,620,630,640,650,660,670,6 
80,690 

610 GOSUB620:GOTO640 
620 Y=Y+1: RETURN 
630 GOSUB620:GOTO660 
640 X=X-1 
650 RETURN 
660 X=X+1 : RETURN 
670 GOSUB680:GOTO640 
680 Y=Y-1 :RETURN 
690 GOSUB680:GOTO660 

999 RETURN 

1000 FG=0:PRINTW$(24)"DIR. (l-9)/FINE (0) 

II 

1020 GOSUB5000:GETDR$:IFDR$ = ""THEN1 020 
1028 DR=VAL(DR$):IFDR<0ANDDR>9THENl020 
1 030 IFDRO0THEN1 040 


male 32768). Nel C 16 in tale loca¬ 
zione inizia la ROM dell'interprete 
BASIC, mentre la mappa video ini¬ 
zia a partire dalla locazione S0C00 
(decimale 3072). Pertanto, ho creato 
la variabile iniziale MV (mappa vi¬ 
deo) = 3072 che sostituisce nel pro¬ 
gramma tutti i valori 32768 della i- 
struzione Poke e Peek presenti. Per 
quanto riguarda gli altri valori della 
mappa video (ad esempio i valori 
32806, 33608 e 33646 della linea 120) 
ho provveduto a variarli in base alle 
corrispondenti locazioni della map¬ 
pa video del C 16 (nel suddetto e- 
sempio: 3110, 3912 e 3950). 

La seconda fase, riguardante la 
compressione del programma in 
modo da farlo entrare nei 12 K byte a 
disposizione, è stata invece più diffi¬ 
cile ed ha comportato più ripassate 
al listato. I punti principali sui quali 


ho operato vengono qui di seguito 
riassunti. 

• Tolte, come ovvio, tutte le Rem. 

• Nella riga iniziale è stata tolta la 
variabile RScon la quale veniva suc¬ 
cessivamente formata la matrice 
WS(25) per il posizionamento dell'i¬ 
nizio di stampa di ogni singola riga a 
video. Quest’ultima matrice, ridotta 
a 24 elementi in quanto l'ultimo non 
veniva utilizzato, è stata ottenuta 
con altro sistema meno dispendioso. 

Le variabili GH e VH relative alla 
formazione dello spessore del ghiac¬ 
cio, sono state tolte in quanto utiliz¬ 
zate una sola volta nella riga 145 e 
sostituite in tale riga con i rispettivi 
valori. 

• La linea 5 contenente il dimensio¬ 
namento delle matrici numeriche è 
una vera “mangia byte”. Tutte le 
matrici riportate occupano circa 10 


Kbyte e quindi, già solo per questo, 
il programma non sarebbe utilizza¬ 
bile sul C 16. Anche riducendo tali 
variabili da virgola mobile in intere 
(%), lo spazio occupato (circa 6 
Kbyte) sarebbe comunque troppo. 
Ho pertanto adottato la seguente so¬ 
luzione: innanzitutto la matrice 
A(20,4) è stata tolta in quanto mai 
riscontrata nel corso del listato e 
quindi probabilmente utilizzata dal¬ 
l’autore per controllare il corretto 
funzionamento del gioco. Per la ma¬ 
trice più grande, la C(20,37,2) che da 
sola occupava oltre 7 Kbyte di me¬ 
moria ed è relativa alla mappa del 
video ed a quella dello spessore del 
ghiaccio, con valori mai superiori a 
255, ho utilizzato la parte alta della 
RAM dalla locazione 14893 a 16372 
per cui lo spazio occupato è stato 
ridotto a 1480 byte più quelli occor- 
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Seguito listato Lago ghiacciato. 

1031 MC$ =C$: OPEN1,1,2:PRINT#1,CR:PRINT#!, 
CG:PRINT#1,PG:PRINT#1,PR:PRINT#1,MC$ 

1 032 PRINT#1,JK$:PRINT#1,JG$:FORI = l 4 893TO 
16372:PRINT#1,PEEK(I):NEXT 

1033 PRINT#!,R6:PRINT#1,G6:FORI=lTONR:FOR 
J=0TO4:PRINT#1,R%(I,J):NEXT:NEXT 

1034 FORI=lTONG:FORJ=0TO4:PRINT#!,G%(I,J) 

:NEXT:NEXT:CLOSEl 

1035 RESTORE50:INPUT”CONTINUI";R$:IFLEFT$ 
(R$,1)="S"THEN89 

1036 END 

1 040 GOSUB9000:GOSUB600:GOSUBl 7000 :IFFG=1 
THENRETURN 

1055 GOSUB7000:IFFG=1THENRETURN 
1060 GOSUBl5000:TC=RC:RC=NC:NC=TC:GOTO500 
0 

4 000 IFCGOl THENRETURN 

4010 GOSUB35000:IFJK$="G"THENS$=STR$(R7)+ 
[<1RVS>]"+STR$(G7)+"[<1RVS OFF>]" 

4020 IFJK$="R"THENS$="[<1RVS>]"+STR$(G7) 
+"[<1RVS OFF>]-"+STR$(R7) 

4030 PRINTWS(24)"PUNTEGGIO :"S$:GOSUB9000 
4040 IFGP>RP*3THENPRINTW$(24)"VINCONO "TY 
$"[<1CRSR U>]": END 

4045 IFRP>=GPTHENPRINTW$(24)"VINCONO "YT$ 
"(<1CRSR U>]": END 
4050 RETURN 

5000 FORQQ=lTO30:POKEMV+Y*40+X,NC:POKEMV+ 
Y* 4 0+X,RC:NEXT: RETURN 

6000 FG=0:XK=X:YK=Y:FORDR=lT09:X=XK:Y=YK: 
GOSUB600:DD%(DR)=0 

6016 IFC$="R"THENDD%(DR)=DD%(DR)+(Y-YK)*7 

5 


6017 IFC$ = "G"THENDD %(DR)=DD%(DR) + (YK-Y)*7 
5 

6019 K9=RND(TI+Pl+P2+X+Y):DD%(DR)=DD%(DR) 
-ABS(X-XK)*10-ABS(Y-10)* 50-ABS(X-10)*5 

6020 EE=PEEK(MV+Y*40+X):IFEE=160THENDD%(D 
R) =DD%(DR)-1 

6025 IFEE=160ANDDR= 5ANDC$ = "G"THENDD%(DR) = 
-9999:GOTO6050 

6030 IFX<1ORX> 370RY<1ORY>20THENDD%(DR)=-9 
99 

6035 IFEE=214THENDD%(DR)=-9999 :GOTO6050 
6037 IFEE = 4 5ANDC $ = "G"THENDD %(DR)=-9999:GO 
T06050 

6040 IF(EE=810REE=870REE=RR0REE=GR)ANDDR< 
>5THENDD%(DR)=-9999 :GOTO6050 

6046 PP = 0:GOSUB31 000 :IFNE = 0THENDD%(DR)=DD 
%(DR)+AM/25+K9-.5-PP:GOTO6050 

6047 GOSUB32000:DD%(DR)=(Pi-P2)*100+K9-.5 
-PP 

6050 NEXT:PM=-10000:DR=INT(RND(TI)*9+1):F 
ORRD=1T09 

606Q IFDDl(RD)>=PMTHENPM=DD%(RD):DR=RD 
6070 NEXT:X=XK:Y=YK:GOTOl040 
7000 FL=0:IFPEEK(FNZ2(1))>=90THEN7020 
7010 POKEFNZ2(1),(PEEK(FNZ2(1))-P/2):X1=X 
0:Y1=Y0 

7020 IFPEEK(FNZ3(1))=99THENRETURN 

7030 IFPEEK(FNZ3(1))=90ANDC$="G"THENGOTOl 

4000 

7040 TC=NC:NC=RC:RC=TC:IFP>=PEEK(FNZ3(1)) 
THENGOSUBl2000 

7999 RETURN 

8000 IFFL=1THENFL=0:RETURN 
8010 GOSUB31000 

8110 IFNE=0THENRETURN 

8130 GOSUB32000;Kl=P2*100/(Pl+P2):K2=P1*1 
00/(Pi+P2):K=RND(TI+Pl+P2)*100 
8140 IFK<=Kl/3THENGOT022000 
8150 IFK>K1/3ANDK<=K1*.66THENGOT023000 
8154 IFK>K1*.66ANDK<=KlTHENGOT039000 
8156 IFK>K1ANDK< =(Kl+K2/3)THENGOT040000 
8160 IFK>(Kl+K2/3)ANDK<=(K1+K2*.66)THENGO 
T024000 


renti alla definizione delle funzioni, 
per il Poke e Peek di tali valori, ri¬ 
portate nelle linee 26-27-28. Per l'u¬ 
tilizzo della parte alta della RAM 
sono stati variati i puntatori come 
da istruzioni riportate nella riga ini¬ 
ziale del programma. 

Tutte le altre matrici sono state va¬ 
riate da virgola mobile in intere. 

• Le modifiche sopra apportate agli 
array hanno comportato un ulterio¬ 
re problema: le matrici, ora intere, e 
le locazioni di memoria per la map¬ 
pa video e spessore ghiaccio, accet¬ 
tano solamente numeri interi com¬ 
presi fra -32768 e + 32768 le prime e 
numeri interi compresi fra 0 e 255 le 
seconde. Nel programma originario 
alcune matrici contengono numeri 
decimali (ad esempio la G(I,0) e 
R(I,0) per la potenza delle unità, la 
G(I,3) e R(I,3) per il peso e la 


C(20,37.2) per lo spessore del ghiac¬ 
cio). 11 sistema operativo del C 16 
accetta, in fase di assegnazione o di 
Poke, solo la parte intera del nume¬ 
ro e tralascia quella decimale senza 
segnalare alcun errore e bloccare il 
programma. Sta di fatto, comun¬ 
que, che se anche il programma gira 
si hanno risultati non coerenti allo 
svolgimento del gioco. Per risolvere 
questo problema, siccome ho notato 
che la parte decimale del peso e della 
potenza delle unità era solo “virgola 
5”, ho raddoppiato tutti i valori, sia 
in fase di assegnazione che durante 
le variazioni e controlli del gioco, in 
modo tale che tutti i numeri sono 
diventati interi. Lo stesso criterio è 
stato usato per definire lo spessore 
del ghiaccio. 

• Ho cercato di scrivere quante più 
istruzioni possibili su un’unica linea 


(si risparmiano 4 byte per ogni riga 
omessa), rispettando le istruzioni If 
ed i Goto e Gosub onde evitare mal¬ 
funzionamenti per le prime e l'errore 
“Undef'd Statement” per le secon¬ 
de. 

• Tutte le subroutine, la cui istruzio¬ 
ne Return è preceduta dalla chiama¬ 
ta di un’altra subroutine, sono state 
modificate come segue: tolta l’istru¬ 
zione Return e sostituito il Gosub 
precedente a tale Return con un Go¬ 
to in modo che il ritorno da quest’ul- 
tima subroutine sia anche il ritorno 
della principale. 

• La subroutine (3000-3150) relativa 
alla presentazione del gioco, la ri¬ 
chiesta di eventuale partita in corso 
e quale esercito guidare, è stata con¬ 
densata (tolto il titolo e la presenta¬ 
zione, tolte le variabili con i nomi dei 
comandanti) ed inserita fra le linee 
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Seguilo listato Lago ghiacciato. 


81 70 IFK>(K1+K2*.66)THENGOTO2501 0 
8500 AM%(AM,1)=Y+DY:AM%(AM,2)=X+DX:D$=C$: 
GOSUB20000:AM%(AM,0)=W:AM%(AM,3)=H 
8510 AM%(AM,4)= K: RETURN 

8600 NE%(NE,1)=Y+DY:NE%(NE,2)=X+DX:D$=N$: 
GOSUB20000:NE%(NE,0)=W:NE%(NE,3)=H 
8610 NE%(NE,4)=K:RETURN 

9000 FORQQ=lTOl 000 :NEXT:FORQQ=3992TO4 0 72 : 
POKEQQ,32:NEXT:RETURN 

10900 FORI=1T037:FORJK=OTOl: POKE3032 + I+JK 

*920+TP(JK)*40,192:NEXT:NEXT 

1 0920 POKEMV, 2 40 :POKE31 10,238:POKE3912,23 

7 :POKE3950,253 :FORI = lTO20 

10930 PRINTW$(1+1)"[<1RVS>][<1CHR$(221)> 

][<1RVS OFF>1"TAB(38)"[<1RVS>][<1CHR$(2 
21)>1(<1RVS OFF>]":NEXT:RETURN 
1 2000 POKEFNZ3(1),0 :NC=RC:RC=214 :POKEMV+Y 
0* 40+X0,PEEK(FNZ2(0)):GOSUB5000:POKEFNZ3( 
0),214 

12010 PRINTW$(24)"IL GHIACCIO SI SPEZZA!" 
:GOSUB9000:FG=1:Q=-4:FL=1:GOTO!6000 
14000 POKEFNZ3(0),NC:POKEMV+Y0*40+X0,PEEK 
(FNZ2(0)):TC=NC:NC=RC:RC=TC:GOSUB5000 
14010 PRINTWS(24)"PALUDE!":GOSUB9000:FG=1 
:Q=-3:GOT016000 

1 5000 POKEMV+Y0*40+X0,PEEK(FNZ2(0)) : RETUR 
N 

1 6000 IFC$ = "R"THENR%(CR,0)=Q:PR=PR-1 :R6=R 
6-1 : RETURN 

16010 IFC$="G"THENG%(CG,0)=Q:PG=PG-1:G6=G 
6-1 : RETURN 
16999 RETURN 

1 7000 IFX<10RX>370RY<1ORY>20THENGOSUBl 800 
0 

17005 PK=PEEK(MV+Y*40+X):IFPK=810RPK=870R 
PK=RRORPK=GRTHENX=X0:Y=Y0 
17010 RETURN 

18000 POKEMV+Y0*40+X0,PEEK(FNZ2(0)):PRINT 
W$ (24)"L'UNITA 1 FUGGE":GOSUB9000:FG=1:GOT 
01 6000 

19000 IFNA=81ORNA=GRTHENNN=87:R9=RR 
19010 IFNA=870RNA=RRTHENNN=81:R9=GR 
19020 RETURN 

20000 W=1:IFD$="G"THEN20500 
20020 IFW>NRTHENRETURN 

20030 IF(R%(W,1)=Y+DY)AND(R%(W,2)=X+DX)AN 
D(R%(W,0)> 0)THENH = R%(W,3) :K=R%(W,0) : RETUR 
N 

20040 W=W+1:GOT020020 
20500 IFW>NGTHENRETURN 

20530 IF(G%(W,1)=Y+DY)AND(G%(W,2)=X+DX)AN 
D(G%(W,0)>0)THENH=G%(W,3):K=G%(W,0) : RETUR 
N 

20540 W=W+1:GOT020500 

22000 FORZ=lTOAM:GOSUB28000:NEXT:RETURN 
23000 IFC$="R"THEN23500 

23020 FORZ=lTOAM:IN=AM%(Z,0):IFG%(IN,3)=6 
THENGOSUB33500:GOTO23040 

23025 GOSUB26000 :RC=PEEK(MV+AM%(Z,1)*40+A 


M% ( Z , 2 ),) : NC = PEEK (FNZ4 ( 0) ) 

2 3027 G%(IN,0)=G%(IN,0)-24 :XX=AM%(Z,2) :YY 
=AM%(Z,1):GOSUB27000:G%(IN,4)=1 
23030 PRINTWS(24)TY$TX$:GOSUB9000 
23040 NEXT:RETURN 

23500 FORZ=lTOAM:IN=AM%(Z,0):IFR%(IN,0)=3 
THENGOSUB28000:GOTO23540 

2 351 0 R%(IN,0)=R%(IN,0)- 3 :RC = PEEK(MV+AM%( 

Z,1)*40+AM%(Z,2)):R%(IN,4)=2 

23530 NC=PEEK(FNZ4(0)):XX=AM%(Z,2):YY=AM% 

(Z,1):GOSUB27000 

23535 PRINTW$(24)YT$XT$:GOSUB9000 
23540 NEXT:RETURN 
24000 IFN$="R"THEN24500 

24020 FORZ=lTONE:IN=NE%(Z,0):IFG%(IN,3)=6 
THENGOSUB34500:GOTO24040 

24025 GOSUB26000:RC=PEEK(MV+NE%(Z,1)*40+N 
E%(Z,2)):NC=PEEK(FNZ5(0)) 

2402 7 G%(IN,0)=G%(IN,0)-24:XX=NE%(Z,2) : YY 
=NE%(Z,1):GOSUB27000:G%(IN,4)=1 
24030 PRINTW$(24)TY$TX$:GOSUB9000 
24040 NEXT:RETURN 

24500 FORZ=1TONE:IN=NE%(Z,0):IFR%(IN,0)=3 
THENGOSUB29000:GOTO23540 

24510 R%(IN,0)=R%(IN,0)-3:RC=PEEK(MV+NE%( 

Z,l)*40+NE%(Z,2)):R%(IN,4)=2 

24520 NC=PEEK(FNZ5(0)):XX=NE%(Z,2) :YY=NE% 

(Z,l):GOSUB27000:G0T023535 

25000 IFD$="R"THENR%(IN,0)=W:PR=PR-1:R6=R 

6-1 : RETURN 

25005 IFD$ = "G"THENG%(IN,0)=W:PG=PG-1 :G6=G 
6-1 : RETURN 

25010 FORZ=lTONE:GOSUB29000:NEXT:RETURN 
26000 G%(IN,3)=6:RETURN 

2 7000 FORQQ=1TO 3 0 : PO KEMV+YY * 4 0+XX,NC: PO KE 

MV+YY* 4 0+XX,RC:NEXT: RETURN 

28000 NC=PEEK(MV+AM%(Z,1)*40+AM%(Z,2)):RC 

=PEEK(FNZ4(0)):YY=AM%(Z,1):XX=AM%(Z,2) 

28020 GOSUB27000:D$=C$:IN=AM%(Z,0):W=-5:G 

OT025000 

29000 NC=PEEK(MV+NE%(Z,1)*40+NE%(Z,2)):RC 
=PEEK(FNZ5(0)) 

29010 YY=NE%(Z,1):XX=NE%(Z,2):GOSUB27000: 
D$=N$:IN=NE%(Z,0):W=-5:GOT025000 
31000 IFC$ = "R"THENN$ = "G":ELSEN$ = "R" 

31 01 0 AM=0:NE=0:NA=NC:RA=RC:GOSUBl 9000:FO 
RDY=-1TOl:IFY+DY<1ORY+DY>20THEN31100 
31015 FORDX=-1TOl:IFX+DX<10RX+DX>37THEN31 
090 

31020 JK=PEEK(MV+(Y+DY)*40+(X+DX)):IFJK=N 

AORJ K= RATHENAM=AM+1 :GOSUB8500 

31030 IFJK=NNORJK=R9THENNE=NE+l:GOSUB8600 

31040 IFJK=45THENPP=PP+100 

31090 NEXTDX 

31100 NEXTDY:RETURN 

32000 Pi=0:P2=0:IFAM=0THEN32015 

32010 FORTY=1TOAM:Pi=Pl+AM%(TY,4):NEXT 

32015 IFNE=0THENRETURN 

32020 FORTY=lTONE:P2=P2+NE%(TY,4) :NEXT: RE 
TURN 

33500 IFG%(IN,0)=30RG%(IN,0)=27THEN28000 
33510 G%(IN,0)=G%(IN,0)-3:RC=PEEK(MV+AM%( 












La battaglia, 
lago ghiacciato 
_per C 16. 


Seguilo listello Lago ghiaccialo. 


Z,1)*4 0+AM%(Z,2)) :G%(IN,4)=2 

33530 NC=PEEK(FNZ4(0)):XX=AM%(Z,2):YY=AM% 

(Z,1):GOSUB27000 

33535 PRINTW$(24)TY$XT$:GOTO9000 

34500 IFG%(IN,0)=3ORG%(IN,0)=27THEN28000 

34510 G%(IN,0)=G%(IN,0)-3:RC=PEEK(MV+NE%( 

Z,1)*40+NE%(Z,2)):G%(IN,4)=2 

34530 NC=PEEK(FNZ5(0)):XX=NE%(Z,2):YY=NE% 

(Z,1):GOSUB27000:G0T033535 

35000 RP=0:FORI=lTONR:RX=R%(1,0):IFRX<0TH 

ENRX=0 

35010 RP=RP+RX:NEXT:GP=0:FORI=lTONG:GX=G% 
(1,0) :IFGX< 0THENGX = 0 

35020 GP=GP+GX:NEXT:GP=GP+PG:RP=RP+PR:R7 = 
MG-GP:G7=MR-RP:RETURN 
38000 IFR6=0THENGOSUB36000 


38010 IFG6=0THENGOSUB37000 

38020 G0T041000 

39000 IFC$="R"THENGOTO23500 

39020 FORZ=1TOAM:IN=AM%(Z,0):GOSUB33500:N 

EXT : RETURN 

40000 IFN$="R"THENGOTO24500 

40020 FORZ=lTONE:IN=NE%(Z,0):GOSUB34500 :N 

EXT:RETURN 

41000 IFC$="R"THEN41500 

41010 IFG%(CG,3)>6THENRETURN 

41 020 IFG%(CG,0)>3THENG%(CG,4)=1 : RETURN 

41030 G%(CG,4)=2 : RETURN 

41500 IFR%(CR,0)>3THENRETURN 

41510 R%(CR,4)=2 : RETURN 


80 - 99. In tali linee è inoltre conte¬ 
nuto anche il caricamento da nastro 
di una battaglia in corso, routine che 
sostituisce quella delle linee 10500- 
10590, e sempre ridotta al minimo 
indispensabile (sono state tolte le i- 
struzioni per il riavvolgimento della 
cassetta). 

• Come per il caricamento, anche il 
salvataggio su nastro di una partita 
in corso (subroutine del programma 
originario dalla riga 11000 alla riga 
11999) è stato ridotto all’essenziale 
ed inserito nella subroutine di Input 
mossa dal giocatore fra le righe 1030 
e 1040. 

• La subroutine 30000-30090 che 
determina le coordinate della pedi¬ 
na che deve essere mossa, scelte dal 
giocatore o dal calcolatore, è stata 
ottenuta con più subroutine a chia¬ 
mata e spostata alle righe 600-690. 
Per Tinserimento della mossa biso¬ 
gna tenere ben presente, quanto se¬ 
gue: Il C 16 non dispone del tastieri- 
no numerico come il Commodore 
3032/4032 che facilita visivamente la 
direzione da scegliere (la pedina da 
muovere è indicata dal tasto 5 e le 
possibili direzioni sono le stesse di 
quelle dei tasti che circondano il 
suddetto). Modificare la routine di 


Input avrebbe comportato un allun¬ 
gamento del programma in contra¬ 
sto con il lavoro di riduzione sin qui 
svolto. Pertanto l’inserimento della 
mossa avviene con lo stesso procedi¬ 
mento del gioco originario, per cui 
bisogna tenere presente che le dire¬ 
zioni sono: 1 = alto/ sinistra; 2 = al¬ 
to; 3 = alto/ destra; 4= sinistra; 5 = 
unità ferma; 6 = destra; 7 = basso/ si¬ 
nistra; 8 = basso; 9 = basso/ destra. 

• Tutte le variabili stringa contenen¬ 
ti le frasi del gioco sono state ridotte 
al minimo indispensabile (“I conta¬ 
dini russi” è diventata “I contadini” 
- “I cavalieri teutonici” è diventata 
“I cavalieri”) in modo tale che nella 
fase di stampa la frase sia contenuta 
in una unica riga con conseguente 
riduzione del programma. 

• Le subroutine di fine gioco (righe 
36000-37999) sono state eliminate e 
il vincitore dichiarato nella subrou¬ 
tine 4000-4050 (condizione di termi- 
nazione). 

• La subroutine 13000 relativa alla 
temporizzazione delle frasi a video 
che veniva chiamata unitamente alla 
subroutine 9000 di cancellazione 
della 23" im * riga del video, è stata 
conglobata in quest’ultima; idem 
per la subroutine 20000 che veniva 


chiamata esclusivamente dalla rou¬ 
tine 31000 e che ha sostituito tale 
linea. 

Finalmente, dopo più ripassate 
comportanti ogni volta ennesimi ta¬ 
gli e variazioni, il programma è riu¬ 
scito ad entrare nella memoria del C 
16 e a funzionare correttamente. 
Anzi, sono addirittura avanzati al¬ 
cuni byte per cui ho potuto colorare 
lo schermo in modo da ottenere lo 
sfondo in Blu ed il lago in Cyan. 

Per quanto riguarda le istruzioni e le 
caratteristiche del gioco, sono le 
stesse riportate dall'autore nell'arti¬ 
colo apparso nel n. 17 della rivista. 

Da segnalare che il gioco è molto 
lungo; al computer occorre più di un 
minuto per muovere e pertanto la 
battaglia può durare diverse ore, per 
cui il salvataggio della posizione 
raggiunta, per continuare successi¬ 
vamente, è quasi sempre indispensa¬ 
bile. 

Questa conversione, oltre che essere 
un ottimo esercizio di BASIC, dimo¬ 
stra alla fine che anche disponendo 
di una memoria limitata rispetto ad 
altre macchine più potenti, si posso¬ 
no ugualmente ottenere dei pro¬ 
grammi interessanti con buoni risul¬ 
tati. 
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LIBRI FIRMATI JACKSON 


Rila Bonetti 

Commodore 64 
il basic 

Un'accurata esposizione del lin¬ 
guaggio BASIC, accompagnata da 
numerosi esempi. 

Nel Capitolo 1 si ha una panoramica 
dei diversi argomenti. Il Capitolo 2 è 
dedicato al linguaggio. Nel Capitolo 
3 si approfondisce l'uso della tastie¬ 
ra e del video. Il Capitolo 4 fornisce 
le informazioni necessarie per usare 
disco e cassetta per memorizzare 
programmi. 
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Commodore 64 
la grafica e il suono 

Ogni argomento viene spiegato e ac¬ 
compagnato da numerosi esempi 
commentati. Nel libro sono listati 
moltissimi programmi che sono regi¬ 
strati sulla cassetta allegata. 

Nel Capitolo 1 si tratta del video, del¬ 
ia tastiera e della grafica in modo 
carattere. Il Capitolo 2 è dedicato al¬ 
la grafica e ne approfondisce tutti gli 
aspetti. Il Capitolo 3 tratta degli spri- 
te.. Nel Capitolo 4 viene trattato l’ar¬ 
gomento del suono. Completano il li¬ 
bro tre appendici: i registri del VIC II 
e del SID e le frequenze delle note 
musicali. 


Il Capitolo 5 é dedicato alla stam¬ 
pante. Nel Capitolo 6 si parla della 
costruzione del programma. 

Nel Capitolo 7 vengono passati in 
rassegna i codici e i numeri del cal¬ 
colatore. Il Capitolo 8 è dedicato alla 
memoria. Nel Capitolo 9 si tratta de¬ 
gli errori. Completano il libro, l'Ap¬ 
pendice A dedicata alla tastiera e 
l'Appendice B all'argomento del BA¬ 
SIC compilato. 

Tutti i programmi esempio riportati 
nel libro sono disponibili a richiesta 
su floppy disk. 
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CEDOLA DI COMMISSIONE LIBRARIA 


Rita Bonetti 

Commodore 64 
i file 

Questo libro tratta in maniera com¬ 
pleta e precisa la gestione dei file su 
cassetta e su disco. 

Oltre a brevi programmi esempio, ri¬ 
portati per spiegare l’uso delle istru¬ 
zioni, il libro contiene cinque pro¬ 
grammi per creare e gestire un archi¬ 
vio di dati: SEQUENZIALE su casset¬ 
ta, SEQUENZIALE su disco, RAN- 
DOM su disco, RANDOM/USER su 
disco, RELATIVO su disco. 
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entro l’avventura 



Continua la costruzione 
del programma per C 64 

di Roberto Tabacco 


S iamo cosi arrivati alla parte 
della “fantasia”, ovvero al 
momento in cui la storia si 
dipana e si svolge. 

Questo è un punto particolarmente 
importante poiché il successo del vo¬ 
stro Adventure si determina proprio 
in questa fase. 

Aldilà delle premesse tecniche, d’al¬ 
tra parte importanti e necessarie, ciò 
che faremo o decideremo ora sarà 
ciò che il giocatore vedrà e giocherà. 
Ricordiamoci sempre che abbiamo 
tralasciato l’oggetto del Fuorilegge, 
dopo questa puntata dovrete deci¬ 
dervi a sceglierlo a porlo nel posto 
che desiderate e decidere il verbo per 
usarlo. 

Il modulo 1 parte da 1600 e termi¬ 
na a 1619 (per il momento manca 
l'oggetto del Fuorilegge). 

Questo modulo è diverso dai comu¬ 
ni moduli di un adventure. 

Infatti normalmente il comando 
non risulta preciso e crea non pochi 
problemi al programmatore ed in se¬ 
guito confusione al giocatore. 

E' una variante che ho apportato al 
gioco che si è rivelata utilissima. Ma 
ve la spiegherò più avanti facendovi 
notare la differenza. Come ho già 
avuto modo di scrivere più volte un 
Adventure subisce sempre delle mo¬ 
difiche e dei cambiamenti secondo 
delle esigenze che il programma im¬ 
pone. 

Seguiamo sul listato lo svolgimento 
del programma. 

Se D$ (l'input di comando) è uguale 


alla frase “Sparo Scorpione” ed il 
luogo è il n. 9 allora D$ sarà uguale a 
“Lascio Pistola": Quindi succederà 
a 3000? 

Bene, facciamo un salto a 3000 al 
modulo 2. Vi sono le risposte al co¬ 
mando multiplo D$. 

Cosa dicono queste risposte? 

3000 Se OG %(2) = -1 Then 
ps = 0:Vai a 3004. 

A 3004 viene stampato: “Hai spara¬ 
to a tempo'. Lo scorpione muore.”: 
Goto2510. 

Se invece la situazione espressa in 
3000 non viene trovata dal program¬ 
ma questi salta alla linea 3001. 

In 3001 trova :“Con cosa spari?” 
:Goto6003 (6003 = fuori gioco.) 
OG%(2) = E’la pistola. Andiamo a 
vedere i Data all’inizio e vedremo 
che il secondo Data è = Pistola. 

Se OG%(2) = -1 : ossia se la pistola è 


stata presa allora PS (Pistola) = 0; 
ovvero in questo momento usiamo 
la pistola. 

Ecco il programma, trovate queste 
condizioni saltare, a 3004 e stampa¬ 
re la frase che si trova printata. 

Se la condizione non esiste ecco allo¬ 
ra stampare : Con cosa spari ? Ossia : 
non ha la pistola. 

Oppure, se tu dici per esempio: spa¬ 
ro pistola, per indicare che vuoi spa¬ 
rare con la pistola, il programma ti 
risponde : mi spiace, ma non capisco 
la frase. Questo vuol dire che non è 
quello il sostantivo da mettere. 

11 sostantivo è Scorpione. 
Torniamo a 1600. Tutte le altre righe 
seguono lo stesso procedimento. 
Guardiamo ora la riga 1607. 

E’ particolare. Infatti dice che se 
D$ = “Leggo Segni" e il luogo è il n. 
10 il programma deve rispondere: 


Modulo 1. 


1600 rem comandi speciali##*** . . „„„ 

1601 ifd$="sParo scorPione"andPc=9thend$= lascio Pistola 9oto3000 

1602 ifd*=“le99o le9no"andPc=4thend*="lascio le9no" 9oto3020 
1604 ifd*="lancio rete"andPc=2thend$="lascio rete" soto3O30 

1606 ifd$="brucio erba"andPc=5thendt="lascio erbe" : 9oto304@ 

1607 ifd*="le99o se 9 ni"andPc=1OthenPrint"4 ui non puoi ! ' 9otol82 

1608 ifd*="dono serPente”andPc=landse=lthen80O0 

1609 ifd*="dono serpente"andPc=landse=0then8005 

1610 1 fdS="P rendo"thenPrint"cosa prendi ?" 9oto2500 

1611 ifd*="lascio"thenPrint“cosa lasci ?" 9oto2500 

1612 ifd*=“esamino“thenPrint"cosa vuoi esaminare ? : 9oto2v00 

1614 i fdt="9i.i.ardo " then 10000 

1615 ifd*="alzo pìetra"andPc=3then3006 

1616 ifd*=”Prendo borsa''andPc=10then8020 

1617 ifdt="aPro borsa"aridPc=10then8022 

1613 ifd#=”Prendo monete”andPc=lltheri8030 
1619 ifd*="bevo ac4ua"andPc=14then3040 

Modulo 2. 

2999 rem risposte df 

3800 if092(2>=-lthenPs=0 : 9oto3804 

3001 prinf'con cosa spari ? "9oto6003 

3004 Print“5Hai sparato a tempo.Lo scorpione muore" 

3007 9oto2510 

3020 if092< 3 > =-1thenle=0 9ot08060 

3021 Print"non hai ancora raccolto il le9no....!" 9oto6803 

3030 i f092 (1 )=-1 thenre=0 : 9oto3032 

3031 Print"non hai con te la cosa utile!" 9oto6003 

3032 Print"ti sei salvatola rete imPri9iona il serpente se=l 9oto2510 

3040 if092(4 ) =-1thener=0 9oto3045 

3041 print"non hai Preso la cosa 9iusta“ : 9oto6003 
3045 prinf'L'erba brucia sPar9endo il suo fumo " 

3846 Print" Un denso fumo che investe 9li indiani un fumo dai Poteri 

3047 Print" allucino9eni...Oli indiani sven9ono... Tu Puoi finalmente liberare 

3048 Print" la bambina." fork=0to3000nextk : 9oto3062 
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Dentro l’avventura 


“Qui non puoi!’’. 

Cosa vuol dire? 

Vuol dire che i segni sul legno devo¬ 
no essere letti in un altra stanza, e- 
sattamente la n. 4. 

Infatti a 1602 troviamo che se 
D$ = “Leggo legno” e il luogo è il n. 
4 allora vai a 3020. 

A 3020 troviamo il solito algoritmo 
e la risposta che rimanda alla linea 
8060, che appartiene al modulo n. 3. 
Dalla linea 8000 e 8061 troviamo 
risposte o avvertimenti. 

Infatti a 1615 se diciamo “Alzo Pie¬ 
tra” e siamo nel luogo n. 3 il pro¬ 
gramma va a 8006. 

A 8006 (modulo 3) trova: “Nooo! 
Uno scorpione rosso ecc ecc” e man¬ 
da a Fuori Gioco. 

Esaminate da voi le righe che par¬ 
tono da 1600 e fate conto di essere il 
computer e seguite le indicazioni di 
rimando alle varie linee, una per u- 
na, vi sarà facile capire come il pro¬ 
gramma agisce. 

E’ un poco laborioso, ma è utile per 
capire più di ogni altra mia spiega¬ 
zione. 

Passiamo al modulo 4, che va da 
9000 a 9101. Si riferisce al Verbo 
Esamino ed è semplice da capire. 

Ad esempio se PC = 3 (se il luogo è 
uguale a 3) e SOS è uguale a “Rete” 
allora stampa: 

“E' Resistente.” 

Una modifica che ho apportato al 
genere si trova invece alla linea 9005. 
Se infatti PC< > 3 e SOS = “Rete", 
cioè se comando la frase: “Esamino 
Rete” ma non mi trovo nel luogo n. 
3 allora il programma risponde con 
la frase della linea 9100. 

Vi presento ora il modulo n. 5, che 
va da 1519 a 1523: sono i comandi 
singoli. Cioè i comandi a singole let¬ 
tere. Prendiamo, ad esempio, la li¬ 
nea 1520. 

La lettera “I” lo sappiamo sta per 
inventario. Ogni parola che rispon¬ 
deremo all’input D$ con una “I” il 
programma andrà a 2541 e presente¬ 
rà l’inventario di ciò che abbiamo 
raccolto. E’ una routine già presen¬ 
tata che conosciamo. 


Modulo 3. 


8008 PrinfSlBravo... Il masso si sposta lentamente 

8002 Print"Lo Stregone ti dice -trasforma l'erba 

8003 Print” salva !" goto182 

8005 Print" Come fai non l'hai catturato" 9otol82 
3006 Prinf'Noooo! Uno scorpione rosso esce e ti 
8020 prinf'La borsa e' nelle tue mani”-goto132 

3022 Print“Rvido! Dalla borsa escono dei vermi 

3023 Print"In Poco tempo sei loro Preda" : 9oto6003 
8030 Print “Et.? tua avidità' e' Punita 

3031 PrinfsPara alle spalle !"goto6003 
3040 Pr int"L'ac4ua e' calda e soPratutto 

3060 Print"Solo lo Stregone Può' aiutarti.” 

8061' Print“Cerealo e donagli l'animale a lui sacro 


e tu Puoi entrare...." 
in fumo. ..e la bimba sai a' 


morde la mano !" 9oto6003 
schifosi e velenosi" 

Il bandito esce e ti " 
VELENOSA ! !!!!!."" 9oto6003 
” goto182 


Modulo 4. 

9000 ifPc=3andso*="rete"thenPrint"e' resistente.“ 9otol82 

9001 ifPc=3andso$="Pistola"thenPrint"e' carica. “ 9otol82 

9002 ifPc=10andso*="le9no"thenPrint"vi sono dei segni !" : 9otol82 
9803 i f P c= 1 5andso$= "erba"thenprint "una specie ignota" goto182 

9004 rem oggetto fuorilegge 

9005 ifPc<>3andsos*="rete"then9100 

9006 ifPc<>8andso$="Pistola"then9100 
900? ifPcO10andso*=" Ie9no"then9100 

9008 i fP cO 15andsoS="erba" then9100 

9009 rem oggetto fuorilegge 

9100 Print"8Puoi esaminare solo nel luogo di origine" 

9101 Print"dove lo hai raccolto....'"9otol32 


Modulo 5. 


1519 rem lettere singole d* 
1528 ifd*="i"then2541 

1521 ifd*="9"thenl0000 

1522 ifd$="P"then6003 

1523 ifd*="c"then7000 


Modulo 6. 


15030 

15031 

15032 

15033 

15034 

15035 

15036 

15037 
15033 

15039 

15040 

15041 

15042 
15046 
1504? 

15043 

15049 

15050 

15051 
)" 

15052 

15053 

15054 

15055 
15057 
15053 

15060 
a" 

15061 

15062 
hi" 
15064 


Print "SI" Poke53231,14 : Print“3" 
print' 1 EEEEEL VAGG10 WEST" 

Print"E1JN'AVVENTURA DI NEBRASKA JOHN" 

Print" EtT-COLORADO : " 

print"Un gruppo di indiani ribelli SIOUX 
Print"la Popolazione di Pionieri.Violato o9ni 
Print" Scesi sul Sentiero di Guerra. Dopo 
P rint"lVed aver incendiato la casa di un 
Print"la sua bambina che tengono Prigioniera 
Print"Le loro intenzioni non sono certo molto 
Print"Ma 4uesto non e' TUTTO !" : Print" Premi 
Print"Infatti un crudele Fuorilegge e' dalla 

print"per chiedere un riscatto al Padre. 

print'Tla ecco NEBRASKA JOHN, correre in 

Pr int"SE13uidalo !" 

inPutc 

Print"8“ Print" Come si gioca : " 

Prmt"ETVerbi comuni: Esaminare-Prendere- 
Print"usati alla Prima Persona sing.-Es 


semina morte e terrore tra" 
accordo " 

aver seminato morte" 
Pioniere hanno rapito" 
in gualche luogo" 

Pacifiche" 
return"; inPutc 
loro e vuole la bambina" 

difesa del Povero uomo" 


Lasciare-" 

Prendo corda (senza articolo 


Prinf'Verbi Speciali Leggere-Tirare-Nettere- 
Print"EKe usi la lettera I=vedi ciò' che hai 
prinf’EtSe usi la lettera G-Ouardi la videata 
Print" Guardo ” 

Print"33e usi C =Rivedi i comandi generaii- 
inPutc 

print"EUsa sempre il verbo ePPoi il nome— 


Laneiare-SPar9ere-Vedere-" 
raccolto..." 

di gioco-Puoi anche dire " 
Se usi P=Pausa gioco-" 

Leggi la schermata con molt 


Print"attenzione.Prima e dopo aver Preso un oggetto esaminalo...." 
Print"EI Non avere fretta di arrivare ma cerca di Percorrere tutti i luo9 


Print"Annota tutti i movimenti che fai-gli oggetti che Prendi e lasci.. 


15065 Print"i Pericoli che incontri...con un Po di Pazienza riuscirai a salvare 


15066 Print"la bambina tenuta prigioniera dagli Indiani SIOUX" 

15067 Print"BU0NR FORTUNA..." 

15068 inPutc 

15069 9oto50 
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Modulo 7. 

7001 print"a comandi =■• 

7003 CrinfES PRENDO MELA -SENZA ARTICOLO" * 

7004 PrinfES LANCIO FRECCIA-etc" 

7005 Pn nt"n_EGC'EPE TIRARE LANCIARE METTERE VEDEPE RACCOGLIERE ALZARE" 

7006 Print“5bi«tassi Siusta PRENDO LIBRO" 

7007 Pn «t "ai = INVENTAR10-R=PAUSA-C i =GUARDO anchS GUARDO- 
7O0S Pri«t"C=COMBNDI" 

7010 Print"Pre»>i return Per tornare al 9loco" ì«Putc 

7011 9otol82 


Modulo 8. 


6000 Print "SSPovero eroe.! ! ! ! “ 

6001 Print"Cadi cosi' nelle sabbie del Delirio.... vieni risucchiato senza". 

6002 Print" speranza di salvezza...." 

6003 Print“Pazienza....sara' Per un'altra volta : 4cto6IO0 

6100 Prlnt"termini cosi di Siocare!" 

6101 Print"8SaPPi che 9li ossetti raccolti ti restano...dl9ita s” 

6102 9eta* ifa*=""then6102 

6103 ifa*="s”then82 

6104 ifa*0"s"thenend 


Se scriviamo la lettera “G” andre¬ 
mo a 10000, dove il programma tro¬ 
verà le istruzioni per rifarci leggere 
la schermata in cui ci troviamo. 

Se digitiamo la lettera “P” come ri¬ 
sposta il programma ci presenterà 
una pausa di gioco. 


Se, infine, chiameremo la lettera 
“C” ci verranno presentati i coman¬ 
di di gioco. 

Queste istruzioni non mandano a- 
vanti il gioco ma sono piccole utilità 
di aiuto. Il modulo 6 comprende le 
istruzioni di gioco. 


Vi consiglio di printare il Modulo 
usando i caratteri minuscoli, vi sarà 
più facile. 

Il modulo 7 presenta i comandi di 
gioco. Se digitiamo la lettera “C” il 
programma salta a questa routine e 
ci ricorda i comandi principali di 
gioco. 

Infine il modulo 8 che inizia a 6000 è 
il Fuori Gioco. Quando si sbaglia si 
va chiaramente Fuori Gioco e digi¬ 
tando la lettera “S” si ritorna al gio¬ 
co. Dal punto di partenza, è ovvio. 

Infine 2 errate corrige di puntate 
precedenti: 

La linea 2584 va cambiata come se¬ 
gue: 

2584 IFOG%(L) = 6THENPRINT 
“COSA VUOI LASCIARE?’’: 
GOTO 182 

La linea 170 è modificata in: 

IF PC = 4 AND LE = 0THEN LE 
= LGOTO15020 ■ 



TROVERETE 
NEL PROSSIMO 
NUMERO 


IN EDICOLA 
DAL 26 APRILE 


ROUTINE IN L.M. 
PER SINCLAIR 


CACCIA AL 13 
PER TI99 


GOLLUM PER 
C 64 


ROUTINE 2 PER 
SPECTRUM 


CACCIA ALLA 
COPPIA PER 
APPLE - C 16-C 64 


BIANCHI E NERI 
PER APPLE 



1,111 filili 1 ' 

ni» CilW 


ZERO E CROCI 
PER SPECTRUM 


GRENDEL PER 
SPECTRUM 


SKYWALKER 
PER C 64 
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A Milano, in via Mascheroni, 14. 
la prima software - libreria italiana 

Un tempo si andava in libreria per il gusto della 
scoperta, per il piacere di esser informati sulle novità. 

Per incontrarsi, discutere, chiedere un consiglio al 
libraio-amico. Tutto questo è ancora possibile, per un 
prodotto assolutamente nuovo: libri e riviste di 
informatica italiani ed esteri, software, giochi. 

Dove? Alla Libreria JACKSON. La prima software - libreria italiana. 


A Milano, in via Mascheroni, 14. - Tei. 02-437385 

Vieni a trovarci: ti aspettiamo. 













Cirraphkit 
per Spectrum 


Un programma 
di utilità grafica 


di Roberto Pesce 


I l programma nasce dall’esigen¬ 
za di avere un facile aiuto per la 
realizzazione di interessanti 
schermi grafici, che si avvicinino per 
qualità a certi schermi di presenta¬ 
zione di alcuni dei più famosi giochi 
inglesi. 

Sono presenti all’interno del pro¬ 
gramma alcune routine che potreb¬ 
bero essere usate separatamente an¬ 
che all’interno di altri programmi. 
Dato il Run si assisterà alla presen¬ 
tazione di un menu che enuncia le 
possibilità a disposizione. Durante 
l’esecuzione del programma, pre¬ 
mendo il tasto 1 si richiamerà istan¬ 
taneamente questa pagina di istru¬ 
zioni, ottenendo anche la pulizia de¬ 
io schermo. 

Dopo il menu verranno chiesti i co¬ 
lori desiderati per Ink, Paper, Bright 
e Border: quest’ultimo non potrà 
più essere cambiato dato che è inuti¬ 
le ai fini della realizzazione dello 
schermo. 

11 Paper selezionato darà il colore 
dell’intero schermo nonché la carta 
della posizione di carattere in cui si 
sta disegnando; volendo cambiare 
quest’ultima basterà premere Z, con 
cui si potrà modificare anche l’Ink e 
il Bright della posizione di carattere 
corrente. Volendo invece cambiare il 
colore dell’intero schermo si preme¬ 
rà W. 

Si devono usare i tasti T, V, D, H per 
le quattro direzioni: alto, basso, sini¬ 
stra, destra e Y, R, C, B per le quat¬ 
tro direzioni intermedie. 

Questi tasti servono per spostare 
sullo schermo un cursore che indivi¬ 


duerà un pixel del quale vengono 
date le coordinate nella parte bassa 
del video. Premendo 1 si potranno 
accendere i pixel di cui vengono date 
le coordinate, premendo 3 si potran¬ 
no spegnere, premendo 2 ci si sposta 
senza modificare nulla. 

Con i tasti 4, 6, 8 si possono memo¬ 
rizzare nella memoria alta dello 
Spectrum contemporaneamente tre 
schermate che possono venire ri¬ 
chiamate rapidamente in qualsiasi 
momento mediante i tasti 5, 7, 9 ri¬ 
spettivamente. Questa possibilità 


consente di salvare fasi successive 
del disegno senza che un errore com¬ 
prometta tutto il lavoro svolto. 

La memorizzazione e il richiamo 
degli schermi è ottenuta tramite due 
semplicissime routine in linguaggio 
macchina che sfruttano l’istruzione 
dello Z80 “Ldir”. Le due routine so¬ 
no presenti una sola volta in memo¬ 
ria poiché i diversi indirizzi degli 
schermi vengono cambiati di volta 
in volta con dei Poke. E’ da notare 
che anche lo schermo delle istruzioni 
viene memorizzato nella zona alta 
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Listato 1. Il programma Graphkit 


ìlj)R _g5<300: LET rl*0 


0 : 


LET 
FLRSM 0: 


LET f =0 


b =0 : 


,-2=8: hkr r3=0 

20 BORDER 0: PAPER 
CLS : PGKE 23653,7 
30 LET pe=0: LET Sl*l: 

: LET m=0: LET e=0 

40 LET j = 0 : LET f 1=0 : LET 
LET f m =0 , 

50 DATA 33,0,250,70,33,1,250,7 
3,205,206,34,205,213,45,254,1,40 
,19,56,0,33,0 

60 DATA 250,70,33,1,250,78,205 
,229,34,33,1,250,52,24,219,201 
70 FOR n =0 TO 37: READ d: POKE 
64100 +n , d: NEXT n 
30 LET q=219 
90 DATA 33,0,64, 

237,176,201 
100 DATA 33,0,q,17,0,64,1,0,27, 
237,176,201 

110 FOR n =0 TO 11: READ d: POKE 
63000 +n,d: NEXT n 
120 FOR n=0 TO 11: READ d: POKE 
63100 +n , d: NEXT n 
130 PRINT AT 0,5; INK 7i PAPER 
2; BRIGHT 0;" GRAPHKIT © 84 R.PE 
SCE " 

140 PRINT AT 1,0; INK 6; PAPER 
0;"ll cursore indica La posizion 
e del pixeL da accendere” 

150 PRINT INK 6; PAPER 0;"Usa B 


17,0,q,1,0,27. 


per muoverti 
Thi zT a re una traccia 
finire una traccia 
cancellare una traccia 
memorizzare schermo 1 
richiamare schermo 1 
memorizzare schermo 2 
richiamare schermo 2 
memorizzare schermo 3 
richiamare schermo 3 
salvare lo schermo” 


per 
per 
pe r 
pe r 
per 
pe r 
per 
pe r 
per 
pe r 


160 PRINT INK 6; PAPER 0; '0 per 
disegnare un cerchio (21 pel¬ 
ea mbiare colore di sfondo" 

170 PRINT INK 6; PAPER 0; "B Per 
disegnare archi di ci re." 

•180 PRINT INK 6; PAPER 0; "H per 
riempire le figure (paint)H per 
attivare sovraimpressione'' 

190 PRINT INK 6, PAPER 0;"H P«r 
caricare schermo da cass. a per 
cambiare spessore traccia" 

200 PRINT INK 6; PAPER 0;'H per 
cambiare colori" 

210 POKE 23691,24: PRINT 00; 


K 6; PAPER 0, "B per 
per ombreg. El per 
zioni " 

220 RANDOMIZE USR 
230 PAUSE 0: CLS 
240 LET X =124 : LET 
250 GO SUB 730 
260 INPUT "border? 

F bO >7 OR bO <0 THEN 
GO TO 260 

270 BORDER bO: CLS 
280 LET i$ = INKEY $ 
290 IF i$="d" AND 
X =X-1: GO TO 480 
300 IF i*="V" AND 
y=y-l: GO TO 480 
310 IF i$="t" AND 
T y=y+l: GO TO 480 
320 IF i$="h" AND 
T X =X +1: GO TO 480 
330 IF i* = 'T" AND X 
LET X *X-1: LET 


corregger 


IN 
e 09 


queste istru 
63000 


y =84 


GO SUB 


bO : I 
1320: 


X >0 THEN LET 
y >0 THEN LET 
y <175 THEN LE 
X <255 THEN LE 


i * = "C 

X=X-1 : 


AND 

LET 


THEN 
0 480 
340 IF 
HEN LET 
430 

350 IF i*="b" AND y 
THEN LET y=y-l: LET 
0 480 

360 IF i*="y" AND 
55 THEN LET y=y+l: 

TO 480 

370 IF INKEY$="q" 

5: GO SUB 1130 
330 IF INKEY t = "S" 

5: GO SUB 1340 
390 IF INKEY*="a" 

5: GO SUB 770 
400 IF INKEY*="W" 

5: INPUT "Sfondo? 
(704): PRINT AT 0 


>0 AND 
y =y +1 


y <175 
GO T 


X >0 AND y >0 T 
y =y-1: GO TO 


>0 AND 
X =X + 1 


X <255 
GO T 


y <175 AND 
LET X =X +1 


X <2 
GO 


THEN BEEP .2 
THEN BEEP .2 
THEN BEEP .2 


0; 


THEN BEEP .2, 
",p : DIN SS 
BRIGHT 8; I 


della memoria: volendo quindi si 
può modificare il programma per 
ottenere un quarto schermo per me¬ 
morizzare i propri disegni. 

Viene usata quasi interamente la 
memoria dello Spectrum 48 Kbyte 
vista la presenza oltre al programma 
(poco più di 9 Kbyte comprese le 
routine in linguaggio macchina) di 
quattro schermi. 

Vediamo ora le altre possibilità del 
programma. 

Con Q si possono disegnare circon¬ 
ferenze, con E si possono tracciare 
archi di circonferenze e linee rette 
(nel caso che si ponga l’angolo ugua¬ 
le a zero). Premendo il tasto S è 
possibile anche cambiare lo spessore 
della linea che si sta tracciando (fino 
a 50 pixel di spessore): in tal caso il 


pixel segnato dal cursore e dalle 
coordinate si troverà al limite sini¬ 
stro della linea che si sta tracciando, 
se ci si pone nella direzione di spo¬ 
stamento. 

Premendo P (Paint) si può colorare 
l’interno di una figura (solitamente 
chiusa); è consigliabile porsi in posi¬ 
zione più centrale possibile perchè 
può essere necessario ripetere l’ope¬ 
razione più volte. Il cursore indica la 
posizione iniziale da cui il program¬ 
ma inizierà a colorare la figura. Si 
noterà che la velocità di esecuzione è 
notevole, questo perchè viene utiliz¬ 
zata un’altra routine in linguaggio 
macchina, anch’essa piuttosto corta 
(37 byte). Questa routine presente 
nel programma BASIC all’interno 
di due Data alle linee 50 e 60 viene 


posta in memoria all’indirizzo 64100 
e deve venire utilizzata assieme alle 
linee BASIC 1570-1680. 

Con l’opzione A si possono correg¬ 
gere eventuali errori: si può infatti 
cancellare una posizione, cambiarne 
gli attributi (attraverso dei Pokc di¬ 
rettamente nella memoria video) op¬ 
pure inserire una scritta con i deside¬ 
rati colori di carta e inchiostro. Si 
può poi attivare la funzione Over 
con il tasto O: è da rilevare che non si 
tratta dclfOver del BASIC ma di 
una possibilità di sovraimpressione 
che consente di scrivere con l’Ink 
desiderato sopra una figura prece¬ 
dentemente colorata con un altro 
Ink. Ad esempio supponiamo di a- 
vere dapprima scelto il colore nero 
per Papere il magenta per Ink: quin- 
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5 


THEN BEEP .2, 
THEN BEEP .2. 


' THEN PONE 
USR 63100 


PRUSE 0 
■0" THEN 


CLS 

BEEP 


631 

BEE 


ni 


THEN BEEP .2 


THEN BEEP 


(y /8) 


nk a; prper p; ouer i;s$: go to 
280 

410 IF INKEY$="e“ THEN BEEP .2; 
5: GO SUB 1230 
420 IF INKEY$=”p ' 

GO SUB 1570 
430 IF INKEY4 = "L' 

5; LORD ""SCREEN* 

440 IF INKEY $ = " i' 

02,219: RRND0MI2E 
P 1.5: PRUSE 0 : 

450 IF INKEY$= 

5: GO SUB 1040 
460 IF INKEY*=" 

5: GO SUB 1370 
470 IF INKEY*="Z" 

5: GO SUB 730 
480 LET pm= (22528+(21-INT 
) *32 + INT (X /8) ) 

490 IF X-SU2 OR X +S l >253 OR y - 
Sl<2 OR U +Sl>173 THEN LET pe=l: 
GO TO 510 
500 LET pe=0 

510 IF pe =0 THEN PLOT OUER li I 
NK 8 ; X-3,y : DRRU OUER 1; INK 8;6 
,0: PLOT OUER 1; INK 3;x,y-3: DR 
RU OUER 1; INK 3;0,6 „ , 

520 IF pe=l THEN PLOT OUER 1; I 
N Hv 3 • x / y 

530 IF f=l RND f»«l THEN BEEP . 
01,1: PLOT INUERSE l;X,y: POKE P 
m,64*b+8*C+P , 

540 IF pe =0 THEN PLOT OUER 1, I 
NK 8; X -3,y: DRRU OUER 1, INK 8;6 
,0: PLOT OUER 1; INK 3;x,y-3: DR 
RU OUER l; INK 3; 0,6 
550 IF pe =1 THEN PLOT OUER 1; I 

N 560 ' Il^ y S i. > 1 RND f =1 RND fl#=0 TH 
EN GO TO 1430 

570 IF fai RND f m *0 THEN PLOT I 
NUERSE j; INK Ci PRPER p; BRIGHT 
b ; x , y 

580 POKE 23691,23 
590 IF fi» =0 THEN PRINT Ri; 

imnM ; "x = "; ink 0 ; prpef 

x; PRPER bo;" INK 9;'^=";, 

K 0 ; PRPER 5;y; PRPER bo;" 

NK 9;"s="; INK 0; PRPER S;sl, 

P 600 b IF f I# =1 THEN PRINT tt 1; "BMjJsl 

cani HHia"; "Xa"; ink 0 ; prpers, 
x ; PRPER bo.;“ ; ink 9, y= /IN 

K 0 ; PRPER 5;y; phpER bo; , I 
NK 9;"s = "; INK 0; PRPER 5;si; Ph 
PER bo;" 

610 IF CODE INKEY $ > =58 
* = "" THEN GO TO 280 
620 IF INKEY$a"0 M THEN 
5: INPUT "nome? ";n*: 

CREEN* : GO TO 230 
630 IF INKEY$="1" THEN 
5: LET fai: LET J=® 

640 IF INKEY*= 2 THEN 
5- LET f =0 

650 IF INKEY*="3" THEN 
5: LET j =1 : LET f=l 
660 IF INKEY$="4“ THEN 
63005,191: 

LET rial 
INKEY$="5" 

63102,191: 

IF i* 1=0 THEN 
p: BRIGHT b „ „ _ 

INKEY$="6“ THEN BEEP .2, 
63005,137: 

LET .-2 = 1 
INKEY$="7 
63102,137; 

IF r2=0 THEN 
P: BRIGHT b 

INKEY$="3" THEN BEEP .2, 
63005,164: RRNDOMIZE UsR 

INKEY*="9" THEN BEEP .2, 


IN 
; I 
PR 


OR INKEY 


BEEP 

SRUE 

BEEP 


• 2 f 

n*s 


BEEP .2 


5: POKE 
63000 : 
670 IF 
5: POKE 
63100: 

: PRPER 
630 IF 
5: POKE 
63000 : 
690 IF 
5: POKE 
63100 : 

: PRPER 
700 IF 
5: POKE 
63000 : 
710 IF 


BEEP 

BEEP 
RRNDOMIZE 


THEN BEEP 
RRNDOMIZE 
CLS 


. 2 , 

USR 

. 2 , 

USR 
INK c 


RRNDOMIZE USR 


THEN BEEP 
RRNDOMIZE 
CLS : INK 


USR 


5 : POKE 
63100: 

. PRPER P: 
720 GO TO 
730 INPUT 
R C > 7 THEN 
0 

740 INPUT 


63102,164: RRNDOMIZE USR 
IF r3=0 THEN CLS : INK C 
BRIGHT b 
280 

" i n K? " ; C : IF C <0 0 
GO SUB 1320: GO TO 73 


"pape f 


I-? 


P >7 THEN GO SUB 


P : 

1320: 


IF 

GO 


p <0 

TO 


OR 
740 

750 INPUT "bright? (0/1) ";b: 

IF b >1 OR b <0 THEN GO SUB 1320: 
GO TO 750 

760 INK C: PRPER p: BRIGHT b: R 
ETURN 

770 LET C C =15 : LET Cl=ll 
780 LET fl=0 „ 

790 POKE 23691,24: PRINT «0; ; "(8 
fira=nSÉHIIÌ usa i cursori e premi § 
H quando 1 1 trovi suda <. a » e 11 a 
300 PRUSE 0 


310 IF INKEY*="5" RND 
LET CC=CC-1 
320 IF INKEY $ = "8 RND 
N LET C C =C C +1 _ „ 

330 IF INKEY$="6" RND 
N LET CL=C t+1 
840 IF INKEY$="7" RND 
LET Cl= Cl-1 

3 50 POK E 23691,24; PRINT «0; _ 

fda^aaHJH" ; INK PAPER bo;" un 
e a” INK 7; PRPER 3; et; INK 9' 
PRPER bo;" cotonna=”; INK 7; 

ER 3,CC; PRPER bo ; " 


c C >0 THEN 
CC <31 THE 
C l <21 THE 
C L >0 THEN 


PRP 


) 


INPUT "a 11 r / 
; a*: IF a$< > 


360 LET rnm=PEEK (22523+CC+CL*32 

870 POKE 22528+CC+CL*32,49 
830 POKE 22528+CC+Ct*32,mm 
890 IF INKEYt="K" THEN GO TO 91 

0 

900 GO TO 310 
910 POKE 23691,22: 
canc/inser,?(l/2/3) 

"1" THEN GO TO 1070 ^ 

920 POKE 23691,22: INPUT "Flash 
? (1/0) ";fc: IF f C <0 OR f C > 1 T 

HEN GO SUB 1320: GO TO 920 
930 INPUT "Bright? (1/0) ;bC: 

IF bc<0 OR bC>i THEN GO SUB 132 
0: GO TO 930 

940 input "Paper? ";pc: IF pc 
<0 OR PC>7 THEN GO SUB 1320: GO 
TO 940 

950 INPUT "irik? "; i C : IF i C <0 
OR iC >7 THEN GO SUB 1320: GO TO 
950 

960 IF fiat THEN RETURN 
970 LET mm=123*fC+64*bC+8*PC+iC 
980 POKE 22523 + Cc +Cl*32,mm 
990 POKE 23691,23: PRINT «0; Pi¬ 
eni x a per altre correzioni" 

1000 BEEP .4,20 ^ 

IF INKEY$= THEN GO TO 101 


1010 

0 

1020 

1030 


IF INKEY*<>"a" 
POKE 23691,23: 


THEN RETURN 
PRINT 81; " 

" : GO 


TO 810 
1040 IF 
0 1060 
1050 IF 
1060 
1070 
1080 
: 60 
1090 
90 
1100 
ter i 


fm =0 THEN 
THEN 


LET fi# =1: GO T 
LET fm =0 


f m = 1 
RETURN 

IF a$="3" THEN GO TO 1100 
IF a $ < >"2" THEN GO SUB 1320 
TO 910 

PRINT RT Cl,CC;" ": GO TO 9 


POKE 23691,24 

" ; c 4 

1110 LET f 1 = 1 : GO 
1=0 

1120 PRINT RT Cl,CC 
FLRSH fc, PRPER pc; 
0 TO 990 


: INPUT "carat 
SUB 920: LET f 


BRIGHT bc; 
INK ic;c*: G 


81 









Seguito programma Graphkit 


1130 input "raggio? ”;r 
1140 IF X +|- >255 THEN GO TO 1210 
1150 IF X -r<0 ThEN GO TO 1210 
1160 IF y+f>175 ThEN GO TO 1210 
1170 IF y-r <0 THEN GO TO 1210 
1130 IF fm=0 THEN CIRCLE INK c; 
PAPER p BRIGHT b.; x , y , r 
1190 IF fnI =1 THEN CIRCLE INUERSE 
1; INK p; PAPER c; BRIGHT b;x..y 

1200 RETURN 

1210 GO SUB 1320: PRINT »0,"IL l'¬ 
aggio dato e” troppo grande." 
1220 PfiUSE 0: 60 TO 1130 

1230 input "angolo in gradi? ";a 
INPUT "distanza X pixel finale 
? ";px: INPUT "distanza Y pixel 


finale 
1240 IF 
1250 
1260 


IF 

IF 

IF 

IF 


",py 

X +p X >255 THEN GO TO 1310 
X + p X <0 THEN GO TO 1310 
y +py >175 THEN GO TO 1310 
y+py<0 THEN GO TO 1310 
f ni "0 THEN DRfiU px,py,a*P 


1230 
1/180 

1290 IF fi» al THEN 
; INK Pj PAPER Ci 
, a*P1/180 
1300 RETURN 
1310 GO SUB 1320: 
u o ri dallo schermo!" 
GO TO 1230 

1320 PRINT «1; FLASH 


DRAU INUERSE 1 
BRIGHT b;px,py 


PRINT 81;"E' f 
PAUSE 150: 


i; 


ERRO 


1330 PGKE 23691..23: PAUSE 99: RE 
TURN 

1340 INPUT "spessore? 1/50 ";sl: 


IF SI>50 THEN 
PAPER 0; FLASH 
OR U=-40 TO 9: 
U: GO TO 1340 


PRINT «1; INK 5; 

1;"ESAGERATO!": F 
BEEP .01,U: NEXT 


1350 
1360 
1370 
1/2 
1380 
■'50 ) 
1320 
1390 
GO 


1400 IF 


IF S l <=0 THEN LET S1=1 
RETURN , „ 

input "automat. o semi aut.? 
";s: IF S =1 THEN GO TO 1690 
input "ampiezza ombreg.? (1 
";oa : IF oa >50 THEN GO SUB 
GO TO 1370 

IF X-oa <0 THEN GO SUB 1320: 
TO 1370 


THEN GO SUB 1320: 


? ( 1/10 


AND 


y-oa <0 
GO TO 1370 

1410 INPUT "grado ombreg 
0:i”;og: LET og=og + 10 
1420 FOR a=y-oa TO y+oa 
1430 FOR o =x-oa TO x+oa 
1440 IF RND*0 9 >=10 AND 0<255 
a<175 THEN PLOT 0 ,a 
1450 NEXT 0 
1460 NEXT a 

1470 RETURN _ „ „ 

1430 IF i$="t" AND pe=0 THEN PLO 
T INUERSE j, INK CPAPER Pi BRI 
GHT b; X,y: DRAU INUERSE j ; s l , 0 
1490 IF i$ = "V" AND pe=0 THEN PLO 
T INUERSE j, INK c; PAPER Pi BRI 
GHT bjx.y: DRAU INUERSE j;-sl,0 
1500 IF i$="d" AND pe=0 THEN PLO 
T INUERSE j; INK Cj PAPER pj BRI 
GHT b; X . y: DRAU INUERSE J;0,Sl 
1510 IF i$ = "h" AND pe=0 THEN PLO 
T INUERSE j; INK Cj PAPER Pi BRI 
GHT b;x . y: DRAU INUERSE j;0,-sl 
1520 IF ij="r" AND pe=0 THEN PLO 
T INUERSE j; INK C; PAPER Pi BRI 


di di avere tracciato una circonfe¬ 
renza con Q e di averla colorata con 
P. A questo punto, se vogliamo dise¬ 
gnare qualcosa all’interno della cir¬ 
conferenza con inchiostro ad esem¬ 
pio bianco, non dobbiamo fare altro 
che cambiare i colori con Z, assu¬ 
mendo il bianco per Ink (perchè è il 
colore con cui si vuole disegnare) e il 
magenta per Paper. Quindi si preme 
O e si può iniziare a disegnare pre¬ 
mendo 1. Bisogna rilevare che con 
Over non si può più cancellare: in 
effetti è bene usare questa possibilità 
solo nei casi necessari. Premendo il 
tasto M si ha un’altra interessante 
opzione: l’ombreggiamento. Si può 
scegliere fra ombreggiamento auto¬ 
matico e semiautomatico; il secondo 
consente di ombreggiare una zona di 
forma quadrata di grandezza defini¬ 
bile e con il grado desiderato, in que¬ 
sto caso il cursore determinerà il 
punto centrale della zona da om¬ 
breggiare. L’ombreggiamento auto¬ 
matico consente invece di creare in¬ 
teressanti effetti di ombra per sem¬ 
plici figure. Verranno richieste dal 
programma la posizione in cui si im¬ 
magina sia posta una luce (destra o 
sinistra) e le coordinate della zona 


quadrata che si vuole venga ombreg¬ 
giata. E’ necessario che soprattutto 
le coordinate x siano piuttosto preci¬ 
se. Ad esempio si immagini di aver 
tracciato una circonferenza di dia¬ 
metro quaranta pixel con centro nel¬ 
la posizione iniziale data dal pro¬ 
gramma (x= 124, y = 84) e di averla 
riempita con paint (tasto P). 
Premendo allora M, quindi 1 per 
scegliere l’ombreggiamento auto¬ 
matico, si scelga la luce a sinistra e 
un grado di ombreggiamento 2. Si 
immettano quindi le coordinate del 
cerchio: y iniziale = 44 (84-40), y 
massimo =124 (84 + 40), x inizia¬ 
le =84 (124-40), x finale = 164 
(124 + 40). 

Si otterrà un discreto risultato, quasi 
tridimensionale, anche se la velocità 
di esecuzione è piuttosto bassa. 

Se si sente un bip-bip proveniente 
dal computer significa che il pro¬ 
gramma sta cercando la figura da 
ombreggiare. 

Infine con il tasto L si può carica¬ 
re da cassetta uno schermo prece¬ 
dente, mentre con lo zero si può sal¬ 
vare lo schermo, sempre su cassetta. 
Ancora da notare che viene segnala¬ 
ta l’avvenuta pressione di un tasto 


tramite una nota. 

Ultime avvertenze: nei limiti del pos¬ 
sibile il programma segnala even¬ 
tuali errori di immissione dati: ad 
ogni modo se si vuole far ripartire il 
programma non bisogna dare Run 
ma Goto 280 che rimanda alla routi¬ 
ne principale. 

Sono molto graditi eventuali osser¬ 
vazioni e miglioramenti. 

REMarks 

10 - Viene riservata per il program¬ 
ma la rriemoria fino a 35000; vengo¬ 
no inizializzate delle variabili che 
servono per la memorizzazione degli 
schermi. 

20 - Vengono predisposte le lettere 
minuscole 

30-40 - Inizializzazione variabili 
50-70 - Routine in linguaggio mac¬ 
china per Paint 

80-120 - Routine in linguaggio mac¬ 
china per trasferimento video 
130-220 - Stampa le istruzioni e le 
memorizza 

280-720 - Routine principale che si 
accorge dei tasti premuti 
770-1120 - Correzione errori 
1130-1220 - Disegna le circonferenze 
1230-1310 - Disegna archi di circon- 
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cotono i 

lari Graham 

GIOCHI CON 
IL COMPUTER 

Il libro, parla (Il giochi con il compu¬ 
ter. una volta tanto visti dalla parte 
del computer, e non dell'utente 
In particolare spiega, In modo sem¬ 
plice ma preciso, come fa il compu¬ 
ter a giocare, come la a produrre im¬ 
magini e suoni durante il gioco e co¬ 
me la (in genere!) a vincere. 

Cod. 006D Pag. 48 Lire 9.000 


La biblioteca per ragazzi 

i innata 

Jacks 


Brian Reffìn Smith 


ritagliare (o fotocopiare) e spedire in busta chiusa a 
GRUPPO EDITORIALE JACKSON - Divisione Libri Via Rosolimi. 12 • 20124 Milano 


IMPARIAMO 
A PROGRAMMARE 

Il libro fornisce le conoscenze essen¬ 
ziali per incominciare a programmare 
In BASIC su di un personal com¬ 
puter. 

Cod. 018D Pag. 48 Lira 9.000 


PRIMI PASSI 
IN BASIC 

Il libro propone l'apprendimento del 
linguaggio BASIC tramite lo studio e 
l'esame dettagliato di programmi già 
scritti. 

Cod. 0070 Pag. 48 Lire 9.000 
Tony Potter - Ivor Guild 

I ROBOT 


Judy Tatchell - Bill Bennett 

CONOSCERE 
IL PERSONAL 

Il libro spiega che cosa si pub fare 
con un personal computer, come si 
usa e come funziona. 

Cod. 0080 Pag. 48 Lire 9.000 


Lynn Mirmg - lan Graham 

RIVOLUZIONE 

INFORMATICA 



CEDOLA DI COMMISSIONE LIBRARIA 
VOGLIATE SPEDIRMI 


n 1 copie 

codice 

Prezzo unitario 

Pretto totale 

























Totale 



Pagherò contrassegno al postino il prezzo indicato più L 3.000 por contributo 
fisso spese di spedizione. 


Il volume è rivolto in particolare ai 
bambini, ma anche a tutti coloro 
che. presto o tardi, verranno coinvol¬ 
ti dalle nuove tecniche informatiche 
più come utenti che come operatori. 
Cod. 004D Pag. 48 Uro 9.000 


Condizioni di pagamento con esenzione del contributo spese di spedizione: 

C Allego assegno della Banca □ Allego fotocopia del versamento 

su eie n. 11666203 a voi intestato 

□ Allego fotocopia di versamento 

n°_ su vaglia postale a voi intestato 

Nome 


Dopo una rapida panoramica su che 
cosa può fare un robot, il libro pre¬ 
senta una serie di robot con (unzioni 
particolari: i robot a braccio, i robot 
operai, i robot nello spazio, etc 
Affronta poi il problema di come un 
robot può essere programmato e 
controllato da un computer, e di co¬ 
me praticamente si realizza un robot 

Cod. 0030 Pag. 48 Lire 9.000 



GRUPPO 

EDITORIALE 

JACKSON 


Cognome 

Via 

Cap 

Otta 

Prov. 

Data 

Firma 



Spazio riservato alle Aziende. Si richiede l'emissione di fattura 

ORDINE 

Partita LV.À. 

1 1 i 1 1 1 1 1 1 1 1 I 

MINIMO 

L 50.000 




























Graphkit 
per Spectrum 


Seguito programma Graphkit 


GHT b ; X , y ; DRAU INUER5E j;s L/1.4. 
, S l /1.4 

1530 IF i*="y" AND pe =0 THEN PLO 
T INVERSE j; INK c; PAPER p; BRI 
GHT b;x,y: DRAU INVERSE j;sL/1.4 
,-Sl/I.4 

1540 IF i$ = "b" AND pe=0 THEN PLO 
T INVERSE j; INK c; PAPER Pi BRI 
GHT b ; X , y : DRAU INVERSE j;-Sl/l. 
4,-S1/1.4 

1550 IF i$ »"C" AND pe =0 THEN PLO 
T INVERSE j; INK c; PAPER p; BRI 
GHT b; X,y: DRAU INVERSE j;-Sl/l. 
4 . S I. /1.4 
lè60 GO TO 530 

1570 LET ip =1: LET XP=X: LET yp = 

y 

15S0 IF POINT (xp ,yp) si THEN RET 
URN 

1590 POKE 64000,yp: POKE 64001,X 

P: POKE 64134,53 

1600 INK C: PAPER p: BRIGHT b 

1610 RANDGMIZE USR 64100 

1620 POKE 64001,xp+1: POKE 64134 


,52: RANDOMIZE USR 64100 

1630 LET yp=yp+ip 

1640 IF yp > 175 THEN GO TO 1670 

1650 IF yp <0 THEN RETURN 

1660 IF POINT (XP , yp) =0 THEN GO 

TO 1590 

1670 IF ip=l THEN LET ip = -1: IF 
y >0 THEN LET yp=y-l: IF POINT (X 
p , yp) =0 THEN GO TO 1590 
1680 RETURN 

1690 input "luce sin. o destra? 
1/2 ";o: INPUT "grado ombreg.? 0 
/9 ”;90 

1700 input "y minimo? ";yi;" y m 
assimo? ";y2 

1710 IF 0=1 THEN INPUT "X inizia 
le? "jxi;" x finale? ";x2: LET s 
= 1 

1720 IF 0=2 THEN INPUT "X inizia 
le? ";x2;" x finale? ";xl: LET s 
= -l 

1730 FOR m =x1 TO X2 STEP s 
1740 FOR n =y1 TO y2 STEP 10 
1750 IF POINT (m , n) =1 THEN GO TO 
1790 

1760 NEXT ri 
1770 BEEP .02,9 
1730 NEXT ni 

1790 LET Xi=m: LET Cl=x2-xi+l: L 

ET c2=34-gù*2 

1300 FOR m=Xi TO X2 STEP S 

1310 FOR n =y1 TO y 2 

1320 IF RND*32 > ((X2-m+2) /C1) *C2 

THEN PLOT INVERSE l;fn,n 

1330 NEXT n 

1840 NEXT ni 

1850 RETURN 


ferenze 

1370-1470 - Ombreggiamento se¬ 
miautomatico 

1480-1560 - Tracciamento linee con 
spessore maggiore di 1 
1570-1680 - Routine in BASIC' per 
Paint 

1690-1850 - Ombreggiamento auto¬ 
matico 

La routine in linguaggio macchina 
per il Paint viene memorizzata agli 
indirizzi 64100-64137 e non è riloca- 
bile. 

La routine di trasferimento video in 
zona alta è memorizzata agli indiriz¬ 
zi 63000-63011 ed è rilocabile. 

Il sesto byte rappresenta il 2° byte 
dell'indirizzo dello schermo. 

La routine di richiamo del video è 
memorizzata agli indirizzi 63100- 
63111 ed è rilocabile. 

In questo caso è il terzo byte della 
routine che indica il byte più signifi¬ 
cativo dell'indirizzo dello schermo 
da ricopiare nella memoria video. 
Infatti nel programma vengono po¬ 
sti in queste posizioni di memoria 
(63005 per il trasferimento e 63102 
per il richiamo) gli appropriati indi¬ 
rizzi in cui sono memorizzati gli 
schermi. 


Variabili principali 

rl,r2,r3 - Servono per la memorizza¬ 
zione degli schermi: se per sbaglio 
dopo aver già memorizzato degli 
schermi si è dato il Run o si sono 
comunque cancellate le variabili, bi¬ 
sogna porre ri, r2, r3 uguali a 1 per 
poter rivedere gli schermi, 
si - Indica lo spessore corrente della 
linea da tracciare (inizialmente è u- 
guale a 1; può raggiungere il valore 
massimo di 50). 

pe - Inizialmente è uguale a 0; se è I 
indica uno stato di “pericolo” ovve¬ 
ro che con il valore attuale dello 
spessore si potrebbe avere l’errore 
Out Of Screen. La linea pertanto in 
questo caso non viene tracciata. Con 
pe= 1 il cursore si riduce ad un pun¬ 
to. 

fin - Inizialmente è 0, se si è attivata 
la funzione Over è 1. 
f - Inizialmente è 0, se si è premuto il 
tasto 1 per accendere i pixel o il tasto 
3 per spegnerli è I. 
j - Inizialmente è 0, se si preme il 
tasto 3 assume il valore 1, se si preme 
il tasto 1 assume il valore 0. 
q - Rappresenta il byte più significa¬ 
tivo dell’indirizzo dello schermo che 


si sta memorizzando o richiamando; 
ad esempio inizialmente viene posto 
uguale a 219 per memorizzare a par¬ 
tire dall’indirizzo 56064 ( = 219 x 
256) lo schermo delle istruzioni, 
c - Valore scelto per Link, 
p - Valore scelto per Paper (della 
posizione di carattere, ma che deter¬ 
mina inizialmente anche il colore 
dello schermo intero), 
b - Valore scelto per Bright. 
bo - Colore del bordo, 
i - Rappresenta il tasto premuto. 
x,y - Rappresentano le coordinate 
del pixel individuato dal cursore, 
stampate nella parte bassa. 
cc,cl - Sono le coordinate (colonna e 
linea, in byte) del cursore lampeg¬ 
giante che serve per la correzione, 
mm - Rappresenta gli attributi della 
posizione in cui si trova il cursore 
lampeggiante della correzione, 
go - Grado di ombreggiamento au¬ 
tomatico. 

yl,y2 - Minimo e massimo per l’om¬ 
breggiamento automatico. 
xl,x2 - Iniziale e finale o viceversa, a 
seconda che la luce sia a sinistra op¬ 
pure a destra. 

xi - Inizio della figura da ombreggia¬ 
re (calcolato). ■ 
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Piani d’ammortamento 
-con lo Sharp- 


i 


Ammortamento 
di un prestito 
a medio termine 
e a rata costante 


di Martino Sangiorgio 


D a quando, anni fa, ricor¬ 
rendo ad un prestito 
bancario per l’acquisto 
dell’appartamento, dovetti subire 
l’oppressione di questi usurai lega¬ 
lizzati, un tarlo continuava a roder¬ 
mi. Se avessi scelto un tempo più 
breve per l’estinzione del prestito av¬ 
rei sicuramente pagato meno inte¬ 
ressi, ma la rata costante sarebbe 
stata alla mia portata? Non nascon¬ 
do di aver tentato di effettuare alcu¬ 
ni calcoli manuali, ma rinunciai pre¬ 
sto ad essi, impostando invece la 
struttura di un pagamento che av¬ 
rebbe dovuto effettuare tali conteg¬ 
gi- 

Con l’acquisto dello Sharp MZ-731 
riesumai le vecchie note e adattai il 
programma alle capacità di questo 
personal. Dall’idea iniziale nacque 
quindi uno strumento, estremamen¬ 
te flessibile, che permette non solo il 
calcolo dell’importo costante della 
rata, ma che sviluppa completamen¬ 
te il piano di ammortamento, evi¬ 
denziando i risultati a video e, su 
richiesta, anche sulla stampante- 
plotter collegata. 

' V! 

Fqnziouamento del programma 

i ; 

Dapprima vengono richiesti, con 
una opportuna maschera video, i 
dati di ingresso, sui quali vengono di 
volta in volta effettuati dei controlli. 
I dati richiesti sono i seguenti. 

1) Capitale (C): trattasi del capitale 


Listato 1. Il programma 
per l’ammortamento. 


10 REtl *-* 

20 REtl * 

30 REfl * PIANO DI AMMORTAMENTO * 
40 REM * 

50 REM iPERSONAL COMPUTER SHARP M2-731* 
60 REM * 

70 REM *-* 

80 REM A* = Metodo per il coleo lo del 
tasso effettivo 

80 REM Al = Coefficiente per calcolo 
**ata 

»00 REM C = Capitale (max 500 milioni) 
110 REM I - Tasso interesse annuo 
(max 50.00 O 

120 REM II 3 Tosso interesse effettivo 
130 REM N - Numero rate globali 
Cmax 200) 

140 REM NI = Numero rate annue (max 12) 

1 50 REM R = Importo totale della rata 
costante 

160 REM S - Spese per ogni rata 
Cmax 50000) 

170 REM Bi = Suiitch di fine programmo 
*80 REM 6G - Giorno scadenza prie a t'oli 
180 REM MM - Mese scadenza prima ''aia 
200 REM ANNO = Anno scadenza prima rata 
210 REM A(K) = Quota interessi della 
K-esima rata 

220 REM BCK) = Quota capitale della 
K-esima rata 

230 REM D(K) = Debito residuo della 
K-esima rata 

240 REM T - Sommatoria di tutte le N-I 
auote interessi 
250 REM TI = Totale interessi 
260 REM N9 = Intervallo tra due date 
fin mesi) 

270 REM N2,N3,N4 = Aree di comodo per 
9 estIone stampa 

280 REM A2.M1 = Aree di comodo per stam- 
oa date scadenza 

290 REM Ci = Switch per stampa piano di 
ammortamento su stampante 
300 OIM A(200),B(200),0(280) 

310 COLOR ,,0,6 
320 PRINT ,, B , ‘ 

330 REM x Richiesta dati in ingresso * 

340 GOSUB 560 

350 IF Ai =,, N" GOTO 390 

360 REM * Calcolo tasso equivalente * 

370 II=CI+I/I00)T(|/NI)-l 
380 GOTO 410 

390 REM * Calcolo tasso nominale * 

400 I1=C1/100)*(l^N1) 

410 REM * Calcolo rata costante * 

420 ACCIUCHII )TN)/((1 + I1 )TN-1 ) 

430 R=INTCC*A1+S) 

440 REM * Calcolo prime N-1 rate * 

450 GOSUB 1370 

460 REM * Calcolo ultima rata * 

470 GOSUB 1530 

480 REM * Stampa piano d'ammortamento * 
490 GOSUB 1630 

500 REM * Richiesta di fine * 

510 GOSUB 3730 

520 IF Bi»"N" GOTO 4290 

530 REM * Azzeramento variabili * 


540 GOSUB 4110 
550 GOTO 330 

560 REM *- 1 

570 REM * RICHIESTA DATI IN INGRESSO * 

580 REM *-* 

590 Ei='* 

600 PRINT "BSSaGnSW- 
610 IF SW 3 1 GOTO 760 
620 SW=1 sTEMPOeiSi^'+AS" 

630 Mi= ,, E0E0E0E0E0fc0E0E0E0E8F8F0F0F0F0F0 
F0F0F8L : BF8F0F0F8F0F0F0F0F8F8F0F0‘’ 

640 PRINT TAB(3) J "00“ ; Mi ;TAB(36) J-CE** 
650 PRINT TABC3) »"FD'* ;TA8(36) ; "PO** 

660 PRINT TAB(3)J"FD";TAB(9)j"PIANO DI A 
MMQRTAMENTO" JTABC36) ; •PO’* 

670 PRINT TAB(3);"RT JTABC13)i "DI UN PRE 
ST ITO" ;TAB(36) ;"FD'' 

680 PRINT TAB(3) ; ‘FO" jTABCS) J'' 

" ;TAB(36)i-FD- 

690 PRINT TAB(3)J"FD ' ;TABC5) ;”SHARP PERS 
ONAL COMPUTER M2-700"JTABC36);"FD" 

700 PRINT TAB(3)Ì ,, FD M JTABC363J'FD" 

710 PRINT TAB(3) ;-CD M M* ;TAB(36) ;"ODSDEDEEE 

720 PRINT M PREMETE UN TASTO QUALSIASI” 
730 GET Ci 

740 IF Ci 3 ”" GOTO 730 
750 PRINT •'B” 

760 GOSUB 3880 
770 REM * Capitale * 

780 CURSOR 22,2 SPRINT Et sCURSOR 23,2 
790 INPUT Ti : IF (UAL(Ti)<=0)+(UAL(Ti)>5E 
*08) THEN MUSIC SisGOTO 780 
800 C=INT(UAL(Ti)) 

810 CURSOR 23,2:PRINT Et:CURS0R 23,2 
820 PRINT USING' a tt#tt, ###. MMM" ;Cs1000 
830 REM * Tasso di interesse annuo * 

840 CURSOR 22,4:PRINT FisCURSOR 23,4 
850 INPUT Ti : IF (UALCTi)<=0)♦(UAL(Ti)>50 
ì THEN MUSIC SisGOTO 840 
860 I-UAL(Ti) 

870 CURSOR 23,4:PRINT Ei:CURS0R 29,4 

880 PRINT USING'MM. ##'• ;l 

890 REM * Numero rate globali * 

900 CURSOR 22,6:PRINT PisCURSOR 23,6 
910 INPUT Ti : IF (UAL(Ti)<=0)♦(UAL(Ti)>20 
0) THEN MUSIC Si:G0T0 900 
920 N=INT(UAL(Ti)) 

930 CURSOR 23,6:PRJNT EisCURSOR 31,6 

940 PRINT USING“MMM"fN 

950 REM x Numero rate annue * 

960 CURSOR 22» 8 SPRINT EisCURSOR 23,8 
970 INPUT Ti:lF (UAL(Ti)<=0)+CUAL(Ti)>l2 
) THEN MUSIC SisGOTO 960 
980 NI=1NT(UAL(Ti)) 

990 IF (N1=5)+(N1=7)+(N1=8)+(N1=9)+(N1=1 
0)+(N1=11) THEN MUSIC Si:G0T0 960 
1000 IF N1> N THEN MUSIC SisGOTO 960 
1010 CURSOR 22,8 :PRJNT EisCURSOR 32,8 
1020 PRINT USING'MM";N1 
>030 REM t spese per rata * 

1040 CURSOR 22,10 SPRINT EisCURSOR 23,10 
1050 INPUT Ti : IF (UAL(TiK=0) + CUAL(Ti)>5 
0000) THEN MUSIC SisGOTO 1040 
1060 S-INTCUAL(TÌ)) 

1070 CURSOR 22,10SPRINT EisCURSOR 28,10 
1080 PRINT USING , ’MM.M«r’JS/1000 
1090 REM * Scadenza prima rata * 

1100 CURSOR 22,13 SPRINT Ei:CURSOR 23,13 
1110 INPUT Ti : IF f.UAL( Ti) <=0) +(UAL(Ti )>3 
I) THEN MUSIC SisGOTO 1100 
H20 GG=INT(UAL(Ti) ) 
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PER TUTTE LE TASCHE 





Vivere 

Persona] Computer 


T7T? 


L’informatica di base 
in una Collana di volumi 
monografici indirizzati a: 


CHI INIZIA 


l'esplorazione affascinante e 
avventurosa del mondo dei Personal. 

I — ... U . particolari tematiche 

di programmazione, di linguaggio, 
di hardware 


r 


CHI DESIDERA POSSEDERE tutto quel che c’è da sapere 


sull’informatica, le sue applicazioni, 
le sue prospettive. 


SONO DISPONIBILI 

• VIVERE COL PERSONAL 
COMPUTER 

• DENTRO E FUORI LA 
SCATOLA 


OGNI MESE 
IN EDICOLA 
VOLUMI /*yi 
A SOLE LIRE I 


CIASCUNO 






































Piani 

d’ammortamento 
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iniziale, cioè dell’importo del presti¬ 
to. Deve essere numerico, intero e 
compreso tra 1 e 500.000.000 

2) Interesse annuo (I): trattasi della 
percentuale di interesse che l’istituto 
di credito appone annualmente sulla 
somma versata. Deve essere numeri¬ 
co, con un massimo di due decimali 
e compreso fra 0,01 e 50. Le cifre 
decimali devono essere separate da 
quelle intere con un punto. 

3) Numero rate globali (N): è il nu¬ 
mero complessivo di rate su cui ver¬ 
rà ammortizzato il prestito. Deve es¬ 
sere numerico, intero e compreso fra 

I e 200. 

4) Numero rate annue (NI): è il nu¬ 
mero di rate costanti che dovranno 
essere versate nell’arco di un anno. 
Verranno accettati solo i seguenti 
valori: 

• 1 = versamenti annuali; 

• 2 = versamenti semestrali; 

• 3 = versamenti quadrimestrali; 

• 4 = versamenti trimestrali; 

• 6 = versamenti bimestrali; 

• 12 = versamenti mensili. 

II numero di rate annue non potrà 
essere superiore al numero di rate 
globali. 

5) Spese per rata (S): trattasi di im¬ 
porti, non soggetti ad interessi, che 
vanno ad aggiungersi al valore co¬ 
stante della rata, dovuti a motivi va¬ 
ri (per esempio per incasso effetti, 
eCc.). Sono anche normalmente uti¬ 
lizzati per arrotondare il valore vo- 
stante della rata. Deve essere un va¬ 
lore numerico, intero e compreso fra 
1 e 50.000. 

6) Scadenza prima rata: è la data del 
primo versamento. Può assumere i 
seguenti valori: 

• GG = giorno: deve essere numeri¬ 
co, intero e compreso tra 1 e 31 ; 

• MM = mese: deve essere numeri¬ 
co, intero e compreso tra 1 e 12; 

• ANNO = anno di scadenza: deve 
essere numerico, intero, di quattro 
cifre e compreso tra 1.982 e 2.000. 
Per contratti stipulati posteriormen¬ 
te all’anno 2000 (parecchi di noi sa¬ 
ranno già anziani) bisognerà rivede¬ 
re la riga 1210. 

7) Metodo di calcolo del tasso effetti- 


Seguito programma 
Piani d’ammortamento. 

1130 CURSOR 22,13iPRINT EiiCURSOR 32,13 

1140 Pf*INT USING"MM" JGG 

H50 CURSOR 22, 14 .'PRINT Eì :CURSOR 23,14 

H60 INPUT Tì : IF CUALCTÌ3<=03+CUALCTì3>1 

2) THEN nUSIC Sì:GOTO 1150 

1170 MM=INTCUALC Tì) 3 

»180 CURSOR 22,J4:PRINT Eì:CURSOR 32,14 
i190 PRINT USING"##";MM 
1200 CURSOR 22,15 :PRINT Et: CURSOR 23,15 
1210 INPUT Tì : IF CUALCTì3<=19823+CUALCTì 
)>20003 THEN NUSIC Sì:GOTO 1200 
1220 ANNO=INT(UALC T ì 3 3 
1230 CURSOR 22,15 :PRINT Eì .'CURSOR 30,15 
«240 PRINT USING"IHHH1 1 ;ANNO 
1250 REM * Metodo di calcolo del tasso 
effettivo * 

«260 GET Aì.'lF Aì = "" GOTO 1260 

1270 IF Aì="N" GOTO 1290 

1280 IF Aì<>"E" THEN MUSIC Sì:GOTO 1260 

1290 CURSOR 1,20 

1300 PRINT “SE TUTTO E' OK, PREMERE IL T 
ASTO 'CR'" 

1310 GET Dt 

1320 IF Dì= M " GOTO 1310 
1330 IF ASCCDì)=ìD GOTO 1350 
>340 GOTO 750 
1350 N9=12/N1 
1360 RETURN 


1370 REM *..—--* 

1380 REM * CALCOLO PRIME N-1 RATE * 
1390 REM *---* 


M00 AC 1 )-INT(C*11 3 
M10 B(13=INTCR-AC1 3-S3 
M20 OC 1 3 = INTCC-BC1 )3 
1430 T =A(13 

1440 IF N<=2 GOTO 1520 
1450 FOR K=2 TO N-1 
1460 KI=K-1 

1470 ACK3=INTC0CK13*111 
1480 B(K3=INT(R-A(K)-S) 
M90 D(K3=INTCD(K13-BCK3) 
1500 T-T-»A(K3 
«510 NEXT K 
1520 RETURN 


1530 REM *-* 

1540 REM * CALCOLO ULTIMA RATA * 

1550 REM *-* 


1560 T1=INTC CR-S3CN-C3 
1570 IF N=l GOTO 1620 
1580 ACN3-T1-T 
1590 K1=N-I 
1600 BCN3=DCK13 
1610 DCN3=0 
1620 RETURN 

1630 REM *-* 

1640 REM * STAMPA PIANO D'AMMORTAMENTO* 

1650 REM *- * 

1660 PRINT M D" 

1670 REM * Stampa intestazione a video * 
1680 GOSUB 1980 

1690 REM * Stampa intestazione su 
stampante * 

1700 GOSUB 2280 
1710 N4=1 
1720 N3=N 

1730 REM * Stampa intestazione pagina * 

1740 GOSUB 2750 

1750 IF N3>6 GOTO 1780 

1760 N2=N 

1770 GOTO 1790 

1780 N2=N2+6 

1790 FOR K=N4 TO N2 

1800 REM * Sistemazione scadenze rate *,- 
1810 GOSUB 2840 

’820 REM * Stampa riga a video * 


1830 GOSUB 2970 

1840 REM * Stampa riga su stampante * 
1850 GOSUB 3100 
1860 NEXT K 

1870 IF N2=N GOTO 1940 

1880 PRINT ’• PREMERE UN TASTO QUALSIASI " 
1890 GET 0$ 

1900 IF Dì = " " GOTO 1890 
1910 N3=N3-6 
1920 N4=N2+! 

1930 GOTO 1730 

1940 REM * Stampa totali * 

1950 GOSUB 3270 
i960 GOSUB 3400 
1970 RETURN 

1980 REM *-* 

1990 REM * STAMPA INTESTAZIONE A UIDEO* 

2000 REM *-* 

2010 PRINT "ET 

2020 Rt= "... 


2030 PRINT TABC23»Pì 

2040 PRINT T AB C 5 3"AMMORTAMENT0 OI UN PRE 
STITO" 

2050 PRINT TABC23 ;Rì 
2060 PRINT 

2070 PRINT TABC43"FINANZlAMENTO DI T 
ABC 253jUSING"####,###.###"iC/1000 
2080 PRINT TABC43"AL TASSO D'INTERESSE D 
EL" JTABC303 iUSING"##.#*" il J 
2090 PRINT M 

2100 PRINT TABC43"AMMORTIZ2ABILE IN" }N1; 
- RATE ANNUE" 

2110 PRINT TABC43"PER UN TOTALE DI M JNJ” 
RATE" 

2120 PRINT TABC43"PARI A"; INICN/N13 »" AN 
NI E"JfN-INTCN/N!3*N1)*N9j" MESI" 

2130 PRINT 

2140 PRINT " RATA ANNUA";TAB(24 3 i "»TA 
BC283 JUSING"###,HWW.;INTCR*N13/1000 
2150 Fì= .. 


2160 PRINT Fi 

2170 Gì- "= 3 *===*====; 


2180 PRINT " RATA COSTANTE ";TABC24 3 i' , 
£. " ;TAB(283 ÌU$ING"1MM*,*MM*. ttMH" {(R-S3/100 
0 

2190 PRINT " SPESE PER RATA"JTABC243 
1 JTABC333 JUS1NG"»#.###"i S/1000 
2200 PRINT Gi 

2210 PRINT " TOTALE RATA"; T AB(243 J"JT 
ABC283 ;USING"IMMI,«MM».1MM»" ;R/1000 
2220 PRINT Gì 

2230 PRINT " COEFFICIENTE"JTABC303JUSING 
••H. tMMMMMMT JI1 
2240 PRINT 

2250 PRINT " SCAOENZA PRIMA RATA"iTABC25 
) ;6G; v jumjv" ;anno 
2260 PRINT 
2270 RETURN 

2280 REM *---..* 

2290 REM * STAMPA INTEST. SU STAMPANTE* 

2300 REM *-* 

2310 PRINT"UUOI LA STAMPA SU CARTA ? CS/ 
N3 " 

2320 GET CÌMF Cì="" GOTO 2320 

2330 IF Cì="N" GOTO 2640 

2340 IF Ci="S" GOTO 2360 

2350 MUSIC Sì:GOTO 2320 

2360 PRINT"UU0I ANCHE L'INTESTA2IONE ? ( 

S/N 3" 

2370 GET Xì:IF Xì="" GOTO 2370 
2380 IF Xì="N" GOTO 2630 

2390 IF Xì="S" GOTO 2410 

2400 MUSIC SìiGOTO 2370 
2410 MODE TN:PC0L0RI 
2420 PRINT/PTABC23;Pì 

2430 PRINT/PTJ.BC53"AMMORTAMENTO DI UN PR 
EST ITO" 

2440 PRIfclvP TABC2);PS 
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Piani 

d’ammortamento 
con lo Sharp 

vo: è possibile utilizzare due diversi 
metodi per il calcolo del tasso effetti¬ 
vo di interesse (vedere più avanti). 

• I soli valori accettati sono i seguen¬ 
ti; 

• N = metodo a tasso nominale; 

• E = metodo a tasso equivalente. 
Se un dato non viene digitato in re¬ 
gola con le norme elencate, lo Sharp 
emette un Beep e il cursore si riposi¬ 
ziona all’inizio del dato in questione. 
Al termine della digitazione, se tutti i 
dati sono corretti, basta premere il 
tasto Cr per proseguire nell’elabora¬ 
zione. Se ci si accorge invece di aver 
digitato qualche valore inesatto, 
premendo un tasto qualsiasi al posto 
del tasto Cr tutti i dati verranno an¬ 
nullati e verrà riproposta la masche¬ 
ra video per l’acquisizione dei valori 
corretti. 

Quando tutti i dati sono stati inse¬ 
riti correttamente, il programma ini¬ 
zia la fase di calcolo vera e propria. 
Dapprima viene calcolato il tasso ef¬ 
fettivo di interesse (II). Se l'utente 
aveva scelto il metodo a tasso nomi¬ 
nale, verrà utilizzata la seguente for¬ 
mula: 

Il = (1/100) ★ (1/N1) 

Se invece l’utente aveva scelto il me¬ 
todo a tasso equivalente, la formula 
utilizzata sarà: 

Il = (I + 1/100) T (I/Nl)- 1 

E’ opportuno ricordare che, nor¬ 
malmente, gli istituti di credito uti¬ 
lizzano il metodo a tasso nominale, 
che determina un maggior tasso di 
interesse effettivo. 

Viene ora effettuato il calcolo del 
valore costante della rata (R), con 
l’utilizzo della formula: 

R = (C*nÌì) + S 
dove: 

*v= »»a + ») w 

(i + iir-i 

Il programma calcola ora, per ognu¬ 
na delle N rate, i seguenti valori, che 
porrà in tre matrici da 200 elementi: 

• A = Quota interessi; 


Seguilo programma 
Piani ci ’ ammortamento. 


2450 PRINT/P TABC 4 )"F INANEIAMENTO DI C.’* 
JTABC25)" ’ SUSING•»•».•»•.«»*"SC/1000 
2460 PRINT/P TA0C4)"AL TASSO 0'INTERESSE 
OEL* ;TA8C29) SUSINO"*».Si S 
2478 PRINT/P » 

2480 PRINT/P TAB(4rAW10PTI?2ABlLE IN"SN 
« s “ RATE ANNUE • 

2490 PRINT/P TABI4)"PER UN TOTALE DI”IN; 
- RATE" 

2500 PRINT/P TABI4)"PARI A"SINTCN/N1)S" 
ANNI E" S f N- INT (N/Nl )*N1 )tN9 J” MESI" 

2510 PRINT/P 

2520 PRINT/P TABC4)'RATA ANNUA *■ fi." 
;TABC28) ;USING”4*4,44».««»” S INTCR*N1 T/10 
00 

2538 PRINT/P TABC2)SR» 

2540 PRINT/P TABI4)“RATA COSTANTE * £." 
STABC28)SUSINO"»**.***.*»»"SfR-S)/l000 
2550 PRINT/P TABI4)"SPESE PER RATA = C." 
STABC33) SUSINO"»». •»»■- SS/1008 

2560 PRINT/P TABI25)“-* 

2570 PRINT/P TABI4)"TOTALE RATA = C." 
5 T AB128)SUSINO"»»* » «»4.«»» M JR/1000 
2580 PRINT/P TABI2)JR» 

2590 PRINT/P TABI4)"COEFFICENTE INTERESS 

I" STABI30) SUSINO ”». 44444»»'' Si 1 

2600 PRINT/P TAB14)"SCADENZA lo RATA"STA 

8125) SGG" /"Jfin /"SANNO 

2610 PRINT/P TABI2)SR4 

2620 PRINT/P 

2630 GOSUB 2650 

2640 RETURN 

2650 REM t -* 

2668 REM * STAMPA INTESTAZIONE RIGA * 

2670 REM t -* 

2680 IF C*<>-S* GOTO 2740 
2690 MOOE TS 
2780 PCOLOR0 

2710 PRINT/P” N. DATA DI RATA COST. 
QUOTA SPESE QUOTA 

0EBIT0" 

2720 PRINT/P" SCAD. = £. 

INTERESSI C COSTANTI f CAPITALE £ 

RESIDUO £" 

2730 PRINT/P 
2740 RETURN 

2750 REM *. -..* 

2760 REM * STAMPA INTESTAZIONE PAGINA * 
2770 REM * A UI0E0 * 

2780 REM t-.---* 

2790 PRINT B- 

2800 PRINT M* SCAOENZA IMPORTO RATA 
SPESE” 

2810 PRINT INTERESSI CAPITALE D 
EBITO RES1D. 

2820 PRINT 
2830 RETURN 

2840 REM *...—-* 

2850 REM * SISTEMAZIONE DATA SCAOENZA * 

2860 REM *--—..* 

2870 CIRCUÌ 

2880 IF Cl = 1 GOTO 2940 

2898 MI=M1*N9 

2900 IF MI<=12 GOTO 2960 

2910 MI=M1 -I2 

2920 A2=A2»1=IF A2>99 THEN A2-0 

2930 GOTO 2960 

2940 A2=ANN0-1980 

2950 MI=MM 

2960 RETURN 

2970 REM t ----* 

2980 REM » STAMPA RIGHE A UIDEO * 

2990 REM *..... 1 

3000 PRINT TABU)SUSINO'4»*“SCI ; 

3010 PRINT TA8C7)SUSING '44”SMI ; 

3020 PRÌNT TA0C10)}'/"SUSING"»»"JA2J 
3030 PRINT TABC17);USING"444,**».*4»"JR/ 


I000S 

3040 PRINT TABC31)SUSING '44.*** 'iS/1000 
3050 PRINT TABC1)SUSING'»»#,*4*. *«4”JACC 
» J/I000S 

3060 PRINT TABC 15) SUSINO*'»**. *4».»»»’' SBC 
CI)/1090 S 

3070 PRINT TABC28)SUSING '*»*,***.*** ' SOC 
CI)/1000 
3080 PRINT 
3090 RETURN 

3100 REM t ...» 

3110 REM * STAMPA RIGHE SU STAMPANTE A 

3120 REM *...* 

3130 IF CÌ<>"S" GOTO 3260 
3140 IF MI<10 THEN U=6 
3150 IF MI>»10 THEN W=5 
3160 J«2:P—1 

3170 IF (C1>-10)*CC1<100) THEN J«1 
3180 IF C1>=1O0 THEN J=0 
3190 IF (CI-32)*(C1=99)*(Cl=166) THEN P» 
-2 

3200 IF (CI-66)♦(CI=133)*CC1=200) THEN S 
KIP-1 

3210 PRINT/P TABU) SCI ;TABCU);M1 /* JA2 
STABC14)SUSINO'»,»4».»*».444 ?R/1800 
3220 SKIPP:PRINT/P TABC28) SUSINO’’», »»», 4 
«».»»»"SACCI)/1800 

3230 SK1P-1:PRINT/P TABC41)SUSINO ” 444,44 
».»»4"SS/1000 

3240 SK1P-1 :PR1NT/P TABC52)SUSING”*,444, 
*44.*44”SBC C1)/1000,OCCl)/1000 
3250 PRINT/P 
3260 RETURN 

3270 REM *.....* 

3280 REM * STAMPA TOTALI A UIDEO * 

3290 REM t --* 

3300 PRINT 04 

3310 PRINT TOTALI”S T ABC 15)SUSINO'»,4»* 
.***,«** sR*N/1000; 

3320 PRINT TABC29)SUSING"»»,*•».«»»"S$iN 
/1080 

3330 PRINT TABC0)SUSINO"»,*44,«44.***”n 
i/1000 ; 

3340 PRINT TABC15)SUSING*444, *44.444"JC/ 
1000 

3350 PRINT G» 

3360 PRINT 'PREMERE UN TASTO' 

3370 GET D* 

3380 IF D*«"” GOTO 3370 
3390 RETURN 

3400 REM *..* 

3410 REM * STAMPA TOTALI SU STAMPANTE * 

3420 REM *—.---* 

3430 IF CIO-S" GOTO 3720 
3440 PRINT/P 

3450 IF (N-31)«CM=65)*(N=98)*(N=132)t(N= 

»65)*CN«199) THEN SKIP-1 

3460 PRINT/P “ TOTALI * £. ’ S T ABC13)S" S 

USING *,*«*.*4*.*4* ;fP*N)/1088 

3470 SKIP-1 •-PRINT/P TABC28)SUSING”*,44», 

* 44 . «*»•' ST 1/1000 

3480 SKIP-1:PRINT/P TABC41)JUSING'444,44 
4.444'' ;S*N/I000 

3430 SK1P-1 :PRINT/P TA8C52)SUSING '4,444, 

444.444”SC/1000 

3500 PRINT/PSPC0L0R1 

3510 PRINT?MODE GRANONE 

3520 F*50:O1»24*CNM) 

3530 STSW-0 

3S40 IF 01>999 GOTO 3590 

3550 0-01 

3560 P-01-48 

3570 01-0 

3580 GOTO 3610 

3590 0-999 

3600 01-01-999 

3610 IF STSWO0 MOUE 0,999 :HSET :GOTO 366 
0 

3620 STSU-I 

3630 MOUE 0,0:LlNE480,0:MOUE 0 ,F:lINE 48 
0,F:PH0ME 
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Gli 

ultimi 

saranno 

i 

primi? 

Giudicalo tu. 

Anche se, in ordine di tempo, 
siamo gli ultimi a uscire con libri 
"dedicati" ai più diffusi home e 
personal computer, siamo convinti 
che il lettore attento ed esigente 
apprezzerà la qualità dei contenuti 
e la loro presentazione. 
Abbiamo selezionato e tradotto i 
best-seller mondiali che accolgono 
quanto di più utile è stato scritto 
perii tuo computer. 

Scegli a colpo sicuro! 

Puoi ordinare direttamente i titoli presentati 
compilando ed inviando il coupon pubblicato 
oppure acquistarli presso i più qualificati 
computer shop e le migliori librerie. 

CEDOLA DI ORDINAZIONE - LIBRI 

Compilare e spedire in busta chiusa a: 

J. soft- Viale Restelli 5 - 20124 Milano 
tei. 02/6880841 -6880842-6880843 

Ordino i seguenti libri per un imporlo totale di L . | 

+ L. 2.000 come contributo fisso per spese di spedizione 

Co d. . Cod . 

C od . Cod. | 

Co d . Cod. | 

□ Contanti allegati 

□ Assegno allegato n° . 

□ Ho spedito l'importo a mezzo vaglio postàie 

□ Ho versato l'importo sul CCP n° 1 9445204 intestato a 
J. soft - Milano 

□ Pagherò in contrassegno al postino al ricevimento dei 
volumi 

Nome .! 

Cognome. 

Via .| 

CAP . Città . Prov. . 

Se richiesto fatturo - codice fiscale . 

Data ..... 




J. soft: libri di qualità 

Per C.mm«4or« *4 

Giochi fantastici per il C 64 
Cod ASOC00Ì L. 42.000 
(inclusa cassetta) 

Un libro pensato e 
realizzato per il 
divertimento dell'utente 
del C 64; contiene 19 
giochi di vario genere 
ampiamente comment 
L'attento studio dei 
programmi potrà esset 
vantaggioso per 
l'apprendimento delle 
tecniche di 
programmazione. 

Il libro del C 64 
Volume 1 

Cod. ASOC0I0L. 24.000 
(inclusa cassetta) 

Il libro del C 64 
Volume 2 

Cod. ASOC011 L. 24.000 
(inclusa cassetta) 


I due libri illustrano a 
fondo le possibilità del 
Commodore 64. Un 
compendio di utili 
consigli, e quant'altro è 
necessario per conoscere 
meglio il proprio 
calcolatore. Esempi pratici 
completano l'esposizione 
in modo chiaro ed 
esauriente. 


Per ZX SpMtrun 

15 giochi grafici per 
ZX Spectrum 

Cod. ASOC 002 L. 24.000 
(inclusa cassetta) 

Un fantastico volume con 
15 entusiasmanti giochi 
grafici per il tuo ZX 
Spectrum. Tutti i 
programmi sono "pronti 


In ogni volume, 
corredato di cassetta, 
oltre 40 programmi 
per il tuo computer: 
giochi grafici, 
utility, arcade, 
adventure una miscela 
esplosiva di software 
"pronto all'uso"! 


Inoltre, i Paper Book: la 
raccolta dei programmi 
suddivisi per macchina di 
Paper Soft, il primo 
settimanale ai software su 
carta per il tuo computer. 

Paper Book - programmi 
per Apple // - 
Cod. ASOC 005 L. 18.000 
Paper Book - programmi 
per VIC 20- 

Cod. ASOC 003 L. 18.000 
Paper Book - programmi 
per Commodore 64 - 
Cod. ASOC 004 L. 18.000 
Paper Book -programmi 
per Texas TI 99/4A - 
Cod. ASOC 007 L. 18.000 
Paper Book - programmi 
per ZX Spectrum - 
Cod. ASOC 006 L. 18.000 

Àsoft. 

Viole Restelli, 5 -20124 Milano - tei. 02/6680841-6880842.6880843 


C 64: suono e grafica - 

Volume 1 

Cod. ASOC008 L. 24.000 
(inclusa cassetta) 

C 64: suono e grafica - 
Volume 2 

Cod. ASOC 009 L. 24.000 
(inclusa cassetta) 

Due volumi che non 
possono mancare nella 
biblioteca dell'utente 
Commodore. Una miniera 
di idee e suggerimenti per 
la programmazione del 
tuo personal computer. 
Una vasta serie di 
programmi esemplificativi 
guidano il lettore al 
miglior sfruttamento del 
Commodore 64. 


all'uso" e ampiamente 
commentati. I programmi 
sono scritti sfruttando 
appieno le capacità del 
calcolatore ed il loro 
studio può giovare a 
chiunque intenda affinare 
le proprie tecniche di 
programmazione. 
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7 Note Bit 



i la musica si i 


così. 


Il 1985 è l'anno mondiale della musica... 
preparati con 7 note Bit , la nuova, fantastica opera 
che in soli 15 fascicoli quattordicinali (ciascuno 
corredato da una cassetta software per Commodore 64) 
ti insegna veramente la musica. E puoi suonare subito 
Non perdere il primo numero. Pensa, compresa nel 
prezzo c'è anche la stupenda tastiera professionale per 
il tuo Commodore 64. 
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EDITORIALE 

JACKSON 

Sdì Frcnàsco • Lorxio • 


IN COLLABORAZIONE CON 



....EVINCI 30 STRAORDINARI 
COMMODORE PLUS/4 
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Piani 

d’ammortamento 
_con lo Sharp 


Seguito programma 
Piani d’ammortamento. 

3640 LINE 0,O:MOUE 30,FILINE 30,0 
3650 GOTO 3670 

3660 LINE 0,0-'MODE 30,0:lIN£ 30,0 
3670 MOUE 8I,0:LINE 81,0:MOUE 162,0:l1NE 
'62,0 

3680 rlOUE 247,0:lINE 247,0:MOUE 315,0=l! 
NE 31S,0:M0UE 393,0:LINE 393,0:MOUE 480, 
0 : LINE 480,0 
3690 IF OIO0 GOTO 3540 
3700 MOUE 0,0 :LINE 480,O:MOUE 480,P:LINE 
0,P:PHOME 

3710 MODE TS:PCOLOR 0 
3720 RETURN 

3730 RETI *- 1 

3740 REM «RICHIESTA DI FINE PROGRAMMA* 

3750 REO *-* 

3760 PRINT"B" 

3770 PRINT “NUOUO PIANO 01 AMMORTAMENTO? 

fS/NV' 

3780 GET B* 

3790 1F B®='"‘ GOTO 3780 
3808 IF B*="S" GOTO 3830 
3818 IF B*="N" GOTO 3830 
3820 MUSIC S*:GOTO 3780 
3830 RETURN 


3840 REM * - * 

3850 REM * STAMPA MASCHERA RICHIESTA * 
3860 REM * DATI * 
3870 REM * - * 


3880 CURSOR 1 , 2 

3890 PRINT "CAPITALE 

3900 CURSOR 1,4 

3910 PRINT "INTERESSE ANNUO 

3920 CURSOR 1,6 

3930 PRINT "NUMERO RATE GLOBALI =“ 

3940 CURSOR 1,8 

3950 PRINT "NUMERO RATE ANNUE 

3960 CURSOR 1,10 

3970 PRINT "SPESE PER RATA 

3980 CURSOR ','2 

3990 PRINT "SCADENZA PRIMA RATA" 

4000 CURSOR 17,13 
4010 PRINT GG =•' 

4020 CURSOR 17,14 
4030 PRINT "MM 
4040 CURSOR 16,15 
4050 PRINT "ANNO a" 

4060 CURSOR 1,17 

4070 PRINT "METODO DI CALCOLO TASSO EFFE 
TTIUO 

4080 CURSOR 1,18 

4090 PRINT "NOMINALE 0 EQUIUALENTE (N/E) 


4100 RETURN 

4110 REM *-* 

4120 REM * AZZERAMENTO UARIABILI * 

4 130 REM *-« 


4140 T =0 
4150 T1=0 
4160 Cl=0 
4170 Cl=0 
4180 N2=0 
4190 C*="" 

4200 FOR K=I TO N 
4210 A(K)=0 
4220 800=0 
4230 D(K)=0 
4240 NEXT K 
4250 RETURN 


4260 REM * - * 

4270 REM * FINE * 

4280 REM * - * 

4 290 COLOR ,,7,1 :MODE TN 
4300 PRINT "D" 

4310 END 


• B = Quota capitale; 

• C = Quota residuo. 

Il calcolo viene effettuato in tre fasi: 

1) Calcolo della prima rata. Si utiliz¬ 
zano le seguenti formule: 

A (1) = C ★ Il 
B (1) = R - A (1) - S 
D (1) = C-B(l) 

2) Calcolo delle rete successive tran¬ 
ne l’ultima. Per K che varia da 2 a N- 
1 vengono eseguite le seguenti ope¬ 
razioni. 

A (K) = D (K - 1) ★ Il 
B (K) = R-A (K)-S 
D (K) = D(K- l)-B(K) 

3) Calcolo dell’ultima rata. E’ neces¬ 
sario effettuare alcuni ritocchi sul¬ 
l’ultima rata, affinché sia valida la 
quadratura tra i totali orizzontali e 
verticali, e il piano di ammortamen¬ 
to sia quindi coerente. 

Verranno eseguite, nell’ordine, le se¬ 
guenti operazioni: 

TI = (R-S)^N-C 

A (N) = Tl-l' ( A(K) 

B (N) = D (N - 1) 

D (N) = 0 

Completate le valorizzazioni di tutte 
le N rate, il programma procede alla 
stampa del piano di ammortamento. 
Verranno dapprima evidenziati sul 
video i dati salienti del prestito (cioè 
quelli richiesti più il valore costante 
della rata e il tasso effettivo di inte¬ 
resse) e verrà chiesto all’utente se 
desidera anche la stampa sulla stam- 
pante-plotter. I possessori di MZ - 
721 (o 771) saranno obbligati a ri¬ 
spondere “N”, mentre su MZ - 731 
sono possibili due soluzioni (“N” o 
“S”). 

Verranno quindi evidenziati a vi¬ 
deo (ed eventualmente su stampan¬ 
te) tutti i valori precedentemente 
calcolati, compresa la data di sca¬ 
denza, per ognuna delle N rate. Per 
dar modo a chi non possedesse la 
stampante, di trascrivere su carta i 
valori evidenziati sul video, la rate 
vengono raggruppate in gruppi di 6, 
dopodiché lo scroll del video viene 


effettuato all’atto della pressione di 
un tasto qualsiasi. Il formato della 
stampa cartacea è invece visibile nel¬ 
la figura 1. 

Al termine della stampa viene richie¬ 
sto all’utente se desidera procedere 
alla definizione di un nuovo piano di 
ammortamento: in caso affermativo 
il programma, dopo aver proceduto 
all’azzeramento di alcune variabili, 
viene fatto ripartire dall’inizio, in 
caso negativo esso termina. 



Commenti al listato 


Nel programma si è fatto un largo 
uso di commenti, per cui esso si au- 
to-documenta molto bene. 

10-290 - Commenti di auto-docu- 
mentazione. 

300-320 - Dimensionamento delle 
matrici e operazioni iniziali. 

330-550 - Struttura centrale del pro¬ 
gramma. Questa parte è evidenziata 
nel diagramma di flusso della figura 
2 . 

560-1360 - Routine “Richiesta dati 
in ingresso”. E’ composta da una 
videata di presentazione (linea 620- 
740) e dalla richiesta dei dati e con¬ 
trollo degli stessi, come specificato 
nel testo. 

1370-1520 - Routine “Calcolo pri¬ 
me N-l rate”. E’ composto dal cal¬ 
colo della prima rata (linee 1400- 
1430) e delle successive, tranne l’ulti¬ 
ma, come specificato nel testo. 
1530-1620 - Routine “Calcolo ulti¬ 
ma rata”. E’ identica a quanto speci¬ 
ficato nel testo. 

1630-1970- Routine “Stampa piano 
d’ammortamento”. Gestisce tutte le 
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ammortamento di un prestito 


FINANZIAMENTO DI £. 14,000.000 

AL TASSO D 'INTERESSE DEL 21.00 * 
AMMORTIZZABILE IN 4 RATE ANNUE 
PER UN TOTALE DI 20 RATE 
PARI A 5 ANNI E 0 MESI 

RATA ANNUA = £. 4,594.000 


RATA COSTANTE = £. 1,147.331 

SPESE PER RATA = £. 1.169 


TOTALE RATA = £. 1,148.500 

T - 

COEFFICENTE INTERESSI 0.0525000 
SCADENZA 1 ol RATA -, 1 / 1 / 1985 


U 
» J> 


N. 

DATA 01 
SCAO. 

RATA COST. 

«- t. 

QUOTA 

'NTERESS! t 

SPESE 

COSTANTI t 

QUOTA 
CAPITALE t 

DEBITO 
RESIDUO f 

• 

1 / 83 

1,148.500 

>35.000 

*.*69 

*12.331 

13,587.009 

2 

4/85 

1,148.500 

>13.352 

*. *69 

*33.979 

13,153.690 

3 

? / 85 

1,148.500 

090.508 

*. *09 

*50.>03 

12,090.927 

A 

18 / 85 

1,'48.500 

000.588 

*. *09 

*80.>43 

12,210.184 

5 

1 / 80 

1,148.500 

641.349 

•.*69 

505.982 

11,710.202 

0 

j / 80 

1, *48.500 

014.785 

!. *09 

532.540 

11.177.850 

> 

7 / 80 

1,148.500 

580.920 

*. *09 

500.505 

10,017.*5* 

8 

10 / 80 

1,148.500 

557.400 

». *69 

589.931 

10,627.220 

9 

1 / 87 

1,148.500 

520.*29 

*. *09 

020.902 

9,400.318 

•0 

4/87 

1,*48.500 

*93.931 

*. *09 

053.500 

8,752.918 

* 1 

7/87 

1,148.500 

*59.522 

*.109 

687.809 

9,005.009 

*2 

10 / 87 

1,*48.500 

*23.*12 

*.*09 

>23.919 

7,341.090 

*3 

? / 88 

•,148.500 

383.407 

*. *69 

* >01.924 

0,379.*00 

’4 

4/88 

*,*48.500 

345 .*eo 

1. *09 

901.923 

5,777.241 

*3 

7/88 

*,148.500 

303.305 

*. *09 

944.020 

4,933. 215 

*0 

10 / 88 

»,*48.500 

258.993 

*. *69 

988.338 

4,044.877 

•7 

1 / 89 

1,<48.500 

212.350 

*.*09 

934.975 

3,109.902 

•8 

4/83 

1,*48.500 

*03.209 

*. *09 

984.002 

2,125.940 

•9 

7/89 

1,148.500 

*11.000 

». 109 

*,035.>25 

1,030.115 


10/83 

1,148.500 

57.210 

*.*09 

«,098.113 

0.000 

TOTALI “ C. 

— 

22,970.000 

_ 

9,940.620 

23.380 

•4,000.000 



Figura 1. Esempio di stampa di un piano di ammorta¬ 
mento a medio termine e a rata costante, ottenuto dalla 
stampante-plotter dello Sharp MZ-731. 



Figura 2. Diagramma diflusso che evidenzia la struttu¬ 
ra del programma. 
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7 NOTE BIT: OGGI LA M 



DAL 27 MARZO 


è iia EDICOLA 

. A TASTIERA compresa 

^■ TA pbÌmo fascicolo 


'S 

. 1 

1 

\ 

1^» 

• 

la 

rapi 


j 

\! 

Et 

e 


prnrwm 

Il 1985 è l'anno mondiale della musica... 
preparati con 7 note Bit , la nuova, fantastica opera 
che in soli 15 fascicoli quattordicinali (ciascuno 
corredato da una cassetta software per Commodore 64) 
ti insegna veramente la musica. 


Con 7 note Bit , porti in casa il tuo maestro personale 
di musica che ti introduce alla teoria e al lessico 
musicali, ti insegna e ti fa fare pratica sulla tastiera, 
seguendoti passo passo nelle lezioni ... senza mai 
annoiarti. 

E puoi suonare subito, con l'aiuto del software 
"interattivo" della cassetta e della speciale tastiera 
musicale per il tuo 64. 

7 note Bit trasforma il Commodore 64 in uno 
strumento musicale sofisticato ed entusiasmante. 
























USKA SI IMPARA COSÌ. 





limi Iti » 1 m \ | \ n n IM • I II IMI II n U1 1| n 


Il video del computer ti presenta tutto ciò che ti 
serve: un metronomo elettronico, il rigo musicale, 
la tastiera visualizzata con le note corrispondenti ai tasti 
... e potrai partecipare "dal vivo" alle session dei 
musicisti più famosi, suonando insieme a loro. 

Prenota in edicola 7 note Bit : una prestigiosa iniziativa 
editoriale nata dall'unione della esperienza informatico- 
divulgativa del Gruppo Editoriale Jackson 
con la competenza tecnico-musicale 


7 note Bit è il 


programma musicale' 


più interessante che c'è: 
non perdere 
il primo numero. 

Pensa, compresa 
nel prezzo c'è anche 
la stupenda tastiera 
professionale per il 
tuo Commodore 64. 


GRUPPO 

EDITORIALE 

JACKSON 


































CHIARIMENTI AL LISTATO 



Piani 

d’ammortamento 
con lo Sharp 


ELENCO DELLE PRINCIPALI VARIABILI 

C 

= Capitale iniziale. 

I 

= Tasso di interesse annuo. 

N 

= Numero rate globali. 

NI 

= Numero rate annue. 

R 

= Importo della rata costante. 

S 

= Spese per ogni rata. 

GG 

= Giorno di scadenza della prima rata. 

MM 

= Mese di scadenza della prima rata. 

ANNO 

= Anno di scadenza della prima rata. 

A (K) 

= Quota interessi della K - esima rata. 

B(K) 

= Quota capitale della K - esima rata. 

D (K) 

= Debito residuo della K - esima rata. 

T 

= Sommatoria di tutte le N - 1 quote interessi. 

T 1 

= Totale interessi. 


Nel listato sono contenuti alcuni simboli grafici che la 
stampantc-plotter non riconosce, per cui al loro posto ha 
stampato il valore esadecimale della codifica ASCII. I 
simboli utilizzati, e il metodo per ottenerli, sono indicati di 
seguito. 

E 0 = tasto Graph seguito da Shift 4- W 

DO = tasto Graph seguito da J 
CE = tasto Graph seguito da Shift + J 
F D = tasto Graph seguito da U 
CD = tasto Graph seguito da M 
DD = tasto Graph seguito da Shift + M 

Anche i seguenti simboli vanno digitati in modo particola¬ 
re: 

E = Graph seguito da Inst 

1 = tasto Graph seguito da J. (tasto cursore) 

Ricordarsi, dopo aver digitato il carattere (o la serie di 
caratteri) voluto, di utilizzare il tasto Alpha per ripristinare 
il modo standard di funzionamento della tastiera. 


varie routine di stampa, dall’intesta¬ 
zione ai totali, sia per la stampa a 
video che su stampante. Per la stam¬ 
pa della rate sullo schermo gestisce, 
attraverso le variabili di lavoro N2, 
N3, N4, lo scroll ogni 6 rate. Le varie 
routine di cui è composta verranno 
commentate successivamente. 
1980-2270 - Routine “Stampa inte¬ 
stazione a video”. E’ la prima routi¬ 
ne richiamata dalla precedente e 
permette di evidenziare sullo scher¬ 
mo sia i dati digitati in ingresso, sia i 
dati salienti calcolati dal program¬ 
ma (valore costante della rata e tas¬ 
so di interesse effettivo). 

2280-2640 - Routine “Stampa inte¬ 
stazione su stampante”. Evidenzia, 
su carta gli stessi dati della routine 
precedente. Origina la prima parte 
della stampa visibile in figura 1. Vie¬ 
ne anch’essa richiamata dalla routi¬ 
ne “Stampa piano di ammortamen¬ 
to”. La stampa viene effettuata solo 
se si è risposto “S” alla richiesta di 
stampa, e “S” alla richiesta di stam¬ 
pa intestazione. 

2650-2740 - Routine “Stampa inte¬ 
stazione riga”. Richiamata dalla 
“Stampa piano di ammortamento” 
una sola volta per piano, permette di 
intestare le N righe che verranno 
successivamente stampate sul plot- 
ter. 

Questo solo se si è risposto “S” alla 
richiesta di stampa su stampante. 
2750-2830 - Routine “Stampa inte¬ 


stazione pagina”. Richiamata dalla 
“Stampa piano di ammortamento” 
per ogni gruppo di 6 rate, permette 
di effettuare la pulizia del video e di 
ottenere una nuova intestazione. La 
descrizione è stata spaccata su due 
righe (come anche l’evidenziazione 
dei dati di ogni rata) per ovvi motivi 
di spazio. 

2840-2960 - Routine “Sistemazione 
data scadenza”. Richiamata dalla 
“Stampa piano di ammortamento” 
ad ogni rata, permette di determina¬ 
re la data di scadenza della rata cor¬ 
rente. 

2970-3090 - Routine “Stampa righe 
a video”. Richiamata dalla “Stampa 
piano di ammortamento” ad ogni 
rata, permette di evidenziare sullo 
schermo il numero progressivo della 
rata corrente, la sua scadenza, il va¬ 
lore costante della rata e delle spese 
per rata, la quota interessi e capitale 
per quella rata e, infine, il debito 
residuo. Il tutto su due righe, per 
motivi di spazio. 

3100-3260 - Routine “Stampa righe 
su stampante”. Richiamata dalla 
“Stampa piano di ammortamento” 
permette di stampare sul plotter, ad 
ogni rata, gli stessi dati evidenziati 
sul video dalla routine precedente. 
La stampa avverrà solo se è stato 
digitato S in risposta alla richiesta di 
stampa. 

3270-3390 - Routine “Stampa totali 
a video”. Richiamata alla fine della 


“Stampa piano di ammortamento”, 
permette di evidenziare sul video i 
totali di colonna per quanto riguar¬ 
da l’importo della rata, l’importo 
delle spese, la quota interessi e la 
quota capitale. 

3400-3720 - Routine “Stampa totali 
su stampante”. Richiamata alla fine 
dalla “Stampa piano di ammorta¬ 
mento, permette di stampare sul 
plotter gli stessi dati evidenziati dal¬ 
la routine precedente. In più (linee 
3500-3710) traccia righe orizzontali 
e verticali per racchiudere ogni co¬ 
lonna (vedere figura 1 ). 

3730-3830 - Routine “Richiesta di 
fine programma”. Richiede all’uten¬ 
te se vuole proseguire con un nuovo 
ammortamento, e pone la risposta 
nella variabile B$. 

3840-4100 - Routine “Stampa ma¬ 
schera richiesta dati”. Permette di 
evidenziare a video, su righe appro¬ 
priate, la descrizione di tutti i dati 
necessari in ingresso al programma 
(vedere testo). 

4110-4250 Routine “azzeramento 
variabili”. Permette di effettuare 
l’azzeramento di tutte quelle varia¬ 
bili (contatori, totalizzatori, matri¬ 
ci), che contengono ancora i vecchi 
valori, prima di procedere al calcolo 
di un nuovo ammortamento. 
4260-4310- Routine “Fine”. Ripor¬ 
ta video e stampante alle condizioni 
iniziali, pulisce il video e fa termina¬ 
re l’esecuzione del programma. ■ 
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SINCLAIR ZX SPECTRUM 

Diamo ai programmi BASIC la massima 
qualità nella grafica di animazione 

di Marcello Spero 

Il BASIC dello Spectrum. pur ottimo, in alcune appli¬ 
cazioni particolari mostra decisamente i suoi limiti. Una 
di queste situazioni, molto sentita e sofferta da quanti 
vorrebbero cimentarsi nella stesura di programmi di 
gioco in questo linguaggio, è la produzione di output 
grafici dinamici, cioè grafica di movimento. 

Perché questo tipo di grafica possa essere definita di 
buona qualità deve possedere due requisiti essenziali: la 
fuidità di movimento e l’assenza di sfarfallio (l’odiato 
“flickering”). 

La fluidità nello spostamento di una figura attraverso lo 
schermo si ottiene dosando l’ampiezza del suo sposta¬ 
mento a seconda delle sue dimensioni e velocità. Se, 
infatti, un’immagine composta da 2 x 2 caratteri può 
percorrere rapidamente lo schermo a balzi di un caratte¬ 
re senza che questo dia fastidio, una figuretta alta qual¬ 
che pixel dovrà necessariamente muoversi di un pixel 
per volta, se vogliamo conservare una buona leggibilità 
di tutta la scena. 

L’ideale sarebbe, senz’altro, suddividere ogni movimen¬ 
to in maniera omogenea, in modo che non vi siano 
periodi di stasi alternati a momenti di brusco sposta¬ 
mento. Non sempre questo è però possibile. L’impor¬ 
tante, comunque, è che in ogni caso sia rispettata la 
seconda regola, che si traduce in pratica nel non avere 
sullo schermo momenti in cui la figura è già stata cancel¬ 
lata dalla vecchia posizione, senza che sia ancora stata 
ricreata nella nuova. 

Appare chiaro che il BASIC non può soddisfare con¬ 
temporaneamente i due requisiti. Se, infatti, un abile 
programmatore può riuscire a minimizzare lo sfarfallio, 
sarà costretto per questo a muovere la sua grafica a 
scatti di un carattere con istruzioni Print. Viceversa, 
premiando la fluidità di movimento con l’uso di Plot e 
Draw, che consentono movimenti anche di un singolo 
pixel, i tempi di tracciamento e cancellazione delle figure 
sarebbero decisamente lunghi. 

Quella che viene qui presentata è una routine Assembly, 
studiata per essere utilizzata all’interno di programmi 
BASIC, atta a produrre grafica dinamica di qualità 
elevata anche nel caso di movimenti lenti e discontinui, 


come sono necessariamente quelli prodotti da un lin¬ 
guaggio interpretato. 

Per rendere immediata la sua compatibilità con il BA¬ 
SIC, la routine ne utilizza la stessa unità grafica, cioè il 
carattere. In questo caso, però, ciascun carattere può 
spostarsi anche di un solo pixel per volta, raggiungendo 
il massimo livello di fluidità. 

Per quanto riguarda lo sfarfallio, il problema viene 
superato completamente operando la cancellazione del¬ 
la vecchia immagine ed il tracciamento di quella nuova 
nel lasso di tempo che intercorre fra la creazione di due 
schermate successive. Mentre quindi la precedente 
schermata conteneva l’oggetto grafico nella sua vecchia 
posizione, quella immediatamente successiva ne conter¬ 
rà già l’immagine nella nuova, senza l’interposizione di 
schermi in cui l’oggetto non compare o compare parzial¬ 
mente. 

Per comprendere più chiaramente i criteri di funziona¬ 
mento della routine vediamo ora rapidamente in che 
modo l’immagine video si forma nella memoria dello 
Spectrum e come da qui passa allo schermo televisivo. 

Lo Spectrum presenta, cosa ormai nota, un’organiz¬ 
zazione alquanto particolare delle informazioni destina¬ 
te al video. Queste, infatti, non sono tenute in memoria 
nell’ordine che apparirebbe più logico, e cioè gli otto 
byte di ciascun carattere, nel loro ordine, a partire da 
quelli del primo carattere in alto a sinistra (posizione 
0,0) fino all’ultimo in basso a destra (posizione 23,31). 
Non dimentichiamo, a questo proposito, che ciascun 
carattere è composto da otto byte, che ne rappresentano 
le otto linee di otto pixel ciascuna. Coloro che si sono 
stupiti nel veder citata la riga 23 tengano presente che, 
seppure non accessibili con istruzioni Print At. nella 
mappatura in memoria dello schermo sono presenti 
anche le due ultime righe, cioè quelle destinate ai coman¬ 
di ed alle linee di programma. 

La disposizione di queste informazioni in memoria, di¬ 
cevamo, è alquanto contorta. Si inizia con il primo byte 
di tutti i caratteri delle prime otto righe, per proseguire 
con il secondo, e cosi via. Completate le prime otto 
righe, la medesima disposizione si ripete per le successi¬ 
ve otto ed infine per le ultime otto. 

Risultato di questo criterio, «dottato per ragioni di velo¬ 
cità di lettura da parte dell’ULA (il congegno che si 
occupa della riproduzione sullo schermo delle informa¬ 
zioni contenute nellar memoria video), è una mappa dei 
“salti” (displacement) fra un carattere e l’altro, e fra un 
byte e l’altro di un carattere, tutta particolare: 

• i successivi byte di uno stesso carattere sono distanzia¬ 
ti l’uno dall’altro di 256; 
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SERVIZIO SOFTWARE 


P.S. propone ai propri lettori i dischi o le cassette dei programmi 
pubblicati. I programmi, provati e garantiti, sono di immediato utilizzo. 


P.S. n° 

Programma 

Sistema 

3 

La carta del cielo 
Collisione 

Apple II 

4 

Interi in precisione 
multipla 

Grafica 3D 

Apple II 

5 

Pretty printer 

Shape table 

Apple II 

7 

Data base modulare 

Apple II 

12-13 

Wei-ch'i 

CBM 3032 

14 

Tool-Kit 

C 64 

19 

Type Writer 

VIC 20 

20 

Scopa 

C 64 - 3032 


Prezzo 

Codice 

Supporto 

30.000 

1 

Disco 

40.000 

4 

Disco 

30.000 

6 

Disco 

25.000 

7 

Disco 

20.000 

8 

Cassetta 

35.000 

9 

Cassetta 

30.000 

10 

Disco 

25.000 

11 

Cassetta 


Per richiedere i programmi in contrassegno, pagando direttamente al postino la cifra indicata, inviare il seguente tagliando 

Spedire in busta chiusa a Gruppo Editoriale Jackson - Via Rosellini, 12 - 20124 Milano 


Inviatemi i seguenti nastri e/o dischi con i programmi 
pubblicati su P.S. 


GRUPPO EDITORIALE JACKSON 


('.nri 1 1 1 1 

1 1 

J al. 

L 

| 

1 

I 

1 1 

Cognome 

Nome .. 

fìnH 1 1 1 1 

1 1 

J a L. 

1 

1 

1 

1 

1 l 

rinri 1 1 1 1 

1 1 

J a L. 

L 

1 

1 

1 

1 1 

Indirizzo . 

C-.nri 1 1 1 1 

1 1 

J a L. 

L 

1 

1 

1 

1 1 

CAP 

1 1 1 1 

1 1 

J a L. 

L 

1 

1 

1 

I i 

Città 

+ SPESE POSTALI 
(contributo fisso) 

L 3.000 

TOTALE L. 

L 

l 

J 

J 

1 1 



che pagherò al postino alla consegna del pacco 


Firma 




















































Listato I. Assemblv della rati line. 


equ 23728 COOR 
teqi' 23729 Y_,COQR 
eqi' 23681 ChÌRR_NR 
equ 23675 UDG 
equ 23563 DEFRDD 


org 53001 


'recupero I dato 

B0001 2R 05 5C 
50004- 11 04 OO 
50007 19 
00008 7E 
50009 R7 


ld hi,(DEFRDD) 
l d de , 4 
add hl,de 
td a/ (b l ) 
and a 


'•intronizzazione 


010 76 
Oli 28 07 


ha l t 

jr z,Non 


'eventuale cancellazione 


50O13 E5 
50O14- D5 
50015 CD 76 C-3 

50018 DI 

50019 E1 


push hi 
push de 
cali MRIN 
pop de 
pop hi 


'recupero degli altri dati 


add hi/de 
add h l -, de 
Id a, (hi) 

Id (CHRR_NR) 

add hi,de 
add hi., de 
Id a, (hi) 

Ld (COOR),a 
add h l , de 
add hi, de 
ld a., (hi) 
ld (Y_COOR), 


)20 19 

50021 19 

50022 7E 

50023 32 81 5C 

50026 19 

50027 19 
50O26 7E 
50029 32 B0 5C 

50032 19 

50033 19 
50O34- 7E 
50035 32 B1 5C 


'programma principale 

tanna i 

'calcolo indirizzo cantere 


50038 DD E5 
5004-0 2R 7B 5C 
BO04-3 EB 
5004-4- 3fi 81 BC 
5004-7 6F 
5004-8 26 00 

50050 29 

50051 29 

50052 29 

50063 19 

50054- E5 
50055 DD E1 


push iX 
ld hi,(UDG) 

ex de,h l 
ld a,(CHfiR_NR> 
l d l , a 
ld h , 0 
add hi,hi 
add hi,hi 
add hi,hi 
add hi,de 
push hl 
pop ix 


I byte 


50057 

50O61 

50064- 

50065 

50066 
50069 
50071 

50075 

50076 
50078 


ED 

CD 

F5 

4-7 

CD 

DD 

ED 

4-8 

06 

0C 


4-8 

85 


CE 

23 

4-B 

07 


5C ld bc,(COOR) 
cali PIXEL 
push a f 
l d b , a 
cali.PLOT 

B0 5C ld C bC,(COOR) 
ld C , b 
ld b , 7 
ine c 


B0 

C3 


C3 


byte successivi 


9 ce 


push bc 


50080 

C-D 

BC 

C-3 

50083 

CI 



50084 

0C 



50085 

FI 



50086 

F5 



50087 

05 



50088 

47 



50089 

CD 

CE 

C-3 

50O92 

DD 

23 


50094 

CI 



50095 

10 

EE 


50097 

FI 



50096 

DD 

E1 


50100 

X 

C9 



'subroutine 

x 

X 


IFT ■ L 




80101 

78 



'chiamata 

ROM 

50102 

CD 

81 

22 

50105 

44 



5O106 

4D 



50107 

C-9 



Ì3H3I 

50108 

79 



50109 

E6 

07 


50111 

X 

28 

02 


X 

; byte 

de l lo 

S 11 

50113 

24 



50114 

C9 




cali DI5 
pop bc 
ine c 
pop af 
push a f 
push bc 
l d b , a 
Cali PLOT 
ine i x 
pop bc 
djnz Loop_» 
pop a f 
pop ix 
r e t 


l d a , b 


cali &22B1 
ld b,h 
ld c , l 
re t 


ld a ,c 
and 7 

jr z,Outchar 


o carattere 


ine h 
re t 


fra caratteri del blocco 


niuwaaa 

50lT57D 


ld a, l 

50116 C-6 

20 

add a,32 

50118 6F 

X 


ld l, a 

X 

Tonfine 

fra due 

blocchi 7 

50119 38 

F8 

jr c,lr»c_h 

50121 7C 


l d a , h 

50122 D6 

07 

sub 7 

50124 67 


l d h , a 

50125 C-9 


re t 


'indirizzo carattere 


50126 DD 7E 00 ld 

50129 0E 00 ld 

50131 04- ine 

50132 05 dee 

50133 28 05 Jr 


in a 

a , (ix+00) 
c , 0 
b 
b 

z,Load 


'distribuzione pixel 


50135 1F 

50136 CB 19 
50138 10 FB 


r r a 
r r c 

djnz Loop_2 


'trasferimcnto al D-File 

x 


igapti __ 
5014-0 RE 
5014.1 77 
5014-2 79 
5014-3 23 
5014-4- RE 
5014-5 77 

50146 2B 

50147 C9 


X O r (hi) 
l d (hi) ,3 
l d a , c 
iric hi 
xo r (hi) 
ld (h l ) , a 
dee hi 
r e t 
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• all’interno di ciascun blocco di otto righe l'ultimo byte 
di un carattere è distanziato dal primo del carattere che 
gli sta sotto ( 1 + 1 ,c) di 32-256x7 = 1.760; 

• l’ultimo byte di ciascun carattere dell’ultima riga di 
ogni blocco è distanziato dal primo byte del carattere 
che gli sta sotto (cioè uno di quelli della prima riga del 
blocco successivo) di 32; 

• i byte di un carattere sono distanziati da quelli corri¬ 
spondenti del carattere alla sua destra di 1 (in senso 
orizzontale, cioè, la disposizione è perfettamente se¬ 
quenziale). 

E’ evidente che, con questa disposizione, la costruzione 
di un carattere è cosa piuttosto semplice. Trovato infatti 
l’indirizzo del primo byte (lo si può ricavare facilmente 
combinando in modo opportuno i valori di riga e colon¬ 
na del carattere) quelli dei byte successivi si otterranno 
incrementando di volta in volta di uno il byte più signifi¬ 
cativo del registro che contiene l’indirizzo stesso. 

Ben diverso è invece il problema della composizione di 
un oggetto grafico delle dimensioni di un carattere (cioè 
una matrice di 8 x 8 pixel) a cavallo fra due, tre od anche 
quattro caratteri diversi. Occorrerà determinare se detto 
carattere risulta a cavallo di una “linea di confine”, e di 
quale delle due possibili (confine di carattere e confine di 
blocco). Lo stesso ragionamento va fatto anche in senso 
orizzontale; qui il confine è di un solo tipo, ma la distri¬ 
buzione dei pixel è più complessa. Mentre infatti dall’al¬ 
to in basso si tratta di suddividere gli otto byte fra due 
caratteri, qui occorre spezzare ogni byte e distribuirne il 
contenuto in modo opportuno fra due byte adiacenti. 

Abbiamo parlato dell'esigenza di sopprimere lo sfar¬ 
fallio e di come ciò sia possibile solo operando la cancel¬ 
lazione e la ricostruzione dell’immagine nel tempo che 
intercorre fra il termine di una scansione e l’inizio della 
successiva. 

Più esattamente, il tempo utilizzabile sarà quello fra il 
segnale di inizio scansione, costituito da un fronte nega¬ 
tivo (negative edge) sulla linea INT e l'arrivo del “pen¬ 
nello” elettronico in zona caratteri, dopo aver percorso 
la parte superiore del bordcr. Si tratta più o meno di 6 
msec. che equivalgono a (3.5xl0~6) x (6x 10~(—3)) = 
21.000 cicli di clock, cioè circa 3000 istruzioni, numero 
di gran lunga abbondante per le nostre esigenze. 
Passando all’esame pratico della routine, iniziamo ad 
osservarne la struttura a blocchi. 

Essa si articola, come si vede nel listato 1 che ne riporta 
l’Assembly, in tre subunità: 

Pixel, che ricava l’indirizzo del primo byte (cioè quello 
più in alto) dell’oggetto, a partire dalle coordinate del 
suo estremo superiore sinistro, espresse nell'usuale scala 
255x191. ma con l’origine posta in alto a sinistra, anzi¬ 
ché in basso. Viene inoltre calcolata la posizione del 
pixel all’interno del byte, per determinare se e quanti 
pixel dovranno essere posti nel byte adiacente (a destra); 
Dis, che calcola l’indirizzo di ognuno dei successivi sette 


byte, a partire dalle sue coordinate (x,y + 1 rispetto al 
precedente) e dall’indirizzo del byte precedente; 

Plot, che provvede a trasferire nel Display File, agli 
indirizzi ricavati dalle due precedenti subroutine, byte 
dopo byte, le informazioni relative alla figura, prenden¬ 
dole dall’area delle UDG. 

La prima subunità utilizza largamente una routine pre¬ 
sente in ROM ed usata normalmente da Plot e Point. Ne 
vedete il disassemblato nel listato 2. 


Listato 2. Disassemblalo della routine ROM 
utilizzala. 


22B1 

07 

and 

a 

22B2 

1F 

rra 


22B3 

37 

sef 


22B4- 

1F 

rra 


22BS 

07 

and 

a 

22B6 

1F 

rra 


22B7 

08 

xor 

b 

22B6 

E6F8 

and 

F8 

22BO 

OS 

xor 

b 

22BB 

67 

ld h 

, a 

22BC 

79 

Id a 

, c 

22BD 

07 

r l ca 


22BE 

07 

r i ca 


22BF 

07 

r l ca 


2200 

08 

xor 

b 

2201 

E6C7 

and 

07 

22C3 

08 

xor 

b 

22C4- 

07 

rlea 


22C5 

07 

r l ca 


2206 

6F 

ld l 

/ a 

2207 

79 

ld a 

, c 

22 CB 

E607 

and 

07 

2200 

09 

r e t 



Le operazioni da essa effettuate, per mezzo di Shift e 
confronti logici, possono essere ricondotte alle seguenti 
due formule: 

H = 64 + 8*INT(y/64 + (y mod 8)) 

L = 32*INT((y mod 64)/8) + INT(x/8) 

in cui H ed L sono rispettivamente il byte più significati¬ 
vo e quello meno significativo deH’indirizzo, mentre x ed 
y sono le coordinate del pixel. 

Si ha inoltre: 

A = (x mod 8) 

dove A viene a contenere il valore di posizione del pixel 
aU’interno del byte. 

La seconda subunità non fa altro che discernere, sulla 
base delle coordinate, fra le tre formule viste più su per 
ottenere l’indirizzo del byte successivo: 

• byte dello stesso carattere = + 256 (H = H + 1, L = L); 

• salto da un carattere all'altro dello stesso blocco = 
1760 (H = H-7, L = L + 32); 

• salto da un blocco al successivo =+32 (H = H, 
L = L + 32, che, poiché 32*8 = 256, si traduce in 
H = H + 1, L = 0); 

In alternativa si sarebbe potuto fare uso di pixel anche 
per questi calcoli successivi, ma in pratica, poiché l’ope- 
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razione si riduce, nella maggior parte dei casi, ad un 
semplice incremento di H, l’uso di Dis porta ad un 
discreto aumento di velocità. 

Per quanto riguarda l’ultima subunità c’è da notare il 
procedimento di ripartizione, in base al valore A, dei bit 
(corrispondenti ai pixel) fra il byte indirizzato e quello 
alla sua destra, attuato per mezzo di shift fra un registro 
contenente l’immagine ed un altro vuoto. Il numero di 
shift sarà uguale al valore di A. Il contenuto dei due 
registri viene quindi trasferito nel Display File con un’o¬ 
perazione di Òr esclusivo, cioè la stessa effettuata da 
Over in BASIC. In questo modo non si altera ciò che è 
già presente, e la medesima routine può essere utilizzata 
anche per cancellare. 

Il corpo principale della routine, oltre ad effettuare 
ciclicamente le chiamate delle subroutine, provvede al 
trasferimento dei dati dalla FN del BASIC, con il siste¬ 
ma visto più volte in questa rubrica che si basa sulla 
variabile di sistema DEFADD. Si tratta del modo più 
pratico per trasferire dati dal BASIC al linguaggio mac¬ 
china. 

Questi dati sono: 

• cancellazione si/no; 

• numero d’ordine del carattere grafico da utilizzare; 

• coordinate dell’estremo superiore sinistro della matri¬ 
ce che compone la figura. 

Numero d’ordine e coordinate sono trasferite in due 
variabili di sistema inutilizzate: 23681 ( 1 byte) e 23728 (2 
byte). La prima informazione, invece, viene immediata¬ 
mente utilizzata per decidere se procedere o meno alla 
cancellazione della vecchia immagine. In caso affermati¬ 
vo i vecchi dati vengono usati di nuovo, provocando, 
come cor Over, la cancellazione della figura (e solo di 
quella). 

Fatto questo si procede al calcolo dell’effettivo indirizzo 
occupato dal carattere grafico da utilizzare, che viene 
quindi conservato nel registro IX. 

E’ infine da notare l’istruzione Halt, che precede l’inizio 
sia del disegno che dell’eventuale cancellazione. Questa 
istruzione provoca l’arresto della CPU, che esegue ripe¬ 
tutamente delle istruzioni Nop (nessuna operazione) 
fino al ricevimento di un fronte negativo sulla linea Int. 
In questo modo le operazioni della routine vengono 
sincronizzate con l’inizio di quel “tempo morto per lo 
schermo’’ che va utilizzato per evitare lo sfarfallio. 

In routine più complesse e lunghe si preferisce, per non 
penalizzare eccessivamente la velocità di esecuzione, 
trasferire i dati relativi all’immagine in un’area “di par¬ 
cheggio” e solo al loro completamento dare un Halt 
seguito dal rapido trasferimento al Display File. In que¬ 
sto caso, data la brevità della routine, non è parso 
valesse la pena di questa complicazione. 

Il listato 1, abbiamo detto, riporta l’Assembly della 
routine, tranne per la parte mutuata dalla ROM, che 


Listato 3. Codice macchina della versione 16 Khyte. 


42 , 

167, 
126 , 
92, 
26 , 

123, 

3, 

237, 

71, 

176, 

251 , 

205, 

241, 

66 , 

36, 

124, 
14, 
25, 

119, 


11, 

116, 

209, 

25, 

126, 

92, 

41, 

75, 

205, 

92, 

126, 

13, 

221 , 

77, 

201 , 

214, 

0 , 

16, 

43, 


92, 

40, 
225, 

25, 

50, 

235, 

41, 
176, 

13, 

72, 

193, 

127, 

225, 

201 , 

125, 

7, 

4, 

251, 

201 


17, 

7, 

25, 

126, 

177, 

56, 

41, 

92, 

127, 

6 , 

12 , 

221 , 

201 , 

121 , 

198, 

103, 

5, 

174, 


4 , 

229, 
25, 
50, 
92, 

129, 

25, 

205, 

221 , 

7, 

241, 

35, 

120 , 

230, 
32, 

201 , 

40, 

119, 


0 , 

213, 

126, 

176, 

221 , 

92, 

229, 

244, 
35, 
12 , 

245, 
193, 
205, 

7, 

111 , 
221 , 
5 , 

121 , 


25, 

205, 

50, 

92, 

229, 

111 , 

221 , 

126, 

237, 

197, 

197, 

16, 

177, 

40, 

56, 

126, 

31, 

35, 


126, 

161, 

129, 

25, 

42, 

3©, 

225, 

245, 

75, 

205, 

71, 

23©, 

34, 

2 , 

240, 

0 , 

203, 

174, 


Listato 4. Programma di caricamento 
versione 16 Khyte. 


1 REM 

****##**#*###**##**##**#*****##* 
* * 

* PROGRAMMO DI CARICAMENTO L/M * 

* * 

* OERSIONE 16K * 

* * 
**#*#******#**■***•*•*#*•***#*##*#** 


10 CLEAR 32399 

20 POR i-32400 TO 32546 

30 INPUT k 

40 POKE i,k 

50 PRINT i,PEEK i 

60 NEXT i 


Listato 5. Codice macchina della versione 48 Khyte. 


42, 

167, 

254, 

92, 

25, 

123, 

0 , 

237, 
71, 
176, 
27, 
205, 
241, 
63, 
36, 

124, 
14, 
25, 

119, 


11, 
118, 
209, 
25, 
126, 
92, 
41, 
75, 
205, 
92, 
255, 
45, 
221 , 
77, 
201 , 
214, 
0, 
16, 
43, 


92, 

40, 
225, 

25, 

50, 

236, 

41, 
176 , 

45, 

72, 

193, 

255, 

225, 

201 , 

125, 

7, 

4, 

251, 

201 


17, 

7, 

25, 

126, 

177, 

58, 

41, 

92, 

255, 

6 , 

12 , 

221 , 

201 , 

121 , 

198, 

103, 

6 , 

174, 


^ / 

229, 
25, 
50, 
92, 

129, 
25 , 
205 , 
221 , 
7, 
241, 
35, 
120 , 

230, 
32, 

201 , 

40, 

119, 


0 

213 

125 

176 

221 

92 

229 

20 

35 

12 

245 

193 

205 

7 

111 

221 

5 

121 


, 25, 
,205, 
, S0, 
, 92, 
,229, 
, HI, 
, 221 , 
,255, 
,237, 
, 197, 
, 197, 
, 16, 
, 177, 
, 40, 
, 56, 
, 126, 
, 31, 
, 35, 


126, 
213 , 
129 , 
26, 
42, 
38, 
225 , 
245 , 
75, 
205 , 
71, 
238 , 
34, 
2 , 
248, 
0 , 
203, 
174, 


potete vedere nel listato 2. 

Contenendo istruzioni di chiamata a subroutine interne 
alla routine stessa, l’insieme non è rilocabile, a meno di 
modifiche. Coloro che possiedono un Assembler non 
avranno problemi, potendo copiare il codice sorgente e 
farlo assemblare dove meglio credono. Per gli altri ven¬ 
gono fornite due versioni del codice macchina. La pri¬ 
ma, nel listato 3, adatta alla versione 16 Kbyte, da 
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inserire, a partire dall'indirizzo 32400, con il program¬ 
ma listato 4. La seconda, nel listato 5, per i possessori 
della versione 48 Kbyte, andrà caricata, a partire dall’in¬ 
dirizzo 65200, con il programma listato 6. Il listato 7 
riporta invece un esempio di uso, utile anche per quanti 
avessero dubbi sull’uso del sistema FN. per richiamare 
dal BASIC una routine in linguaggio macchina. La 
forma della FN da usare è comunque: 

FN a(canc,car,x,y) = USR indirizzo 

dove cane sarà 1, se si desidera la cancellazione, 0 altri¬ 
menti (per esempio la prima volta che un oggetto viene 
disegnato); car sarà il numero d’ordine del carattere 
grafico; x ed y saranno le coordinate dell’angolo supe¬ 
riore sinistro dell’oggetto; indirizzo sarà l’indirizzo di 
inizio della routine, nel nostro caso 32400 per il 16 
Kbyte e 65200 per il 48 Kbyte. 

Per concludere, vediamo qualche possibilità di modifica 
ed estensione. 

Prima possibilità alla portata di tutti, in quanto non 
comporta modifiche al l/m, è l’uso per più oggetti diver¬ 


si. Per questo basta conservare i dati relativi a ciascuna 
figura in tre variabili BASIC, supponiamo: 

• cari per il numero d’ordine; 

• xl per la prima coordinata; 

• y 1 per la seconda; 

che verranno a turno trasferiti, con: 

• POKE 23681,cari; 

• POKE 23728,xl; 

• POKE 23729,yl; 

nelle apposite variabili di sistema, per permettere la 
corretta cancellazione. Se come argomenti della FN 
avrete usato le medesime variabili, l’aggiornamento sa¬ 
rà automatico, senza perciò necessità di Let... = Peek... 
Con una semplice modifica al contatore di Loop-M 
(byte 63 della routine), invece, è possibile riprodurre più 
caratteri grafici consecutivi l’uno sotto l’altro senza so¬ 
luzione di continuità, provocando perciò la loro appari¬ 
zione simultanea sullo schermo. 

Per ottenere la stessa cosa in senso orizzontale sono 
invece necessarie modifiche più complesse. 


COMMODORE VIC 20 - C 64 


Gli interrupt del chip video del C 64 

di Alessandro Guida 

La linea di interrupt 

Abbiamo più volte parlato, in questa rubrica, della 
linea di interrupt di cui è dotato il microprocessore del 
C 64. I 

Si è visto che questa linea viene periodicamente attivata 
da un timer contenuto in un circuito integrato CIA 
(Complex Interface Adapter). Per l’esattezza si ha un 
interrupt ogni sessantesimo di secondo. 

L’attivazione di questa linea obbliga il 6510 ad inter¬ 
rompere l'esecuzione del programma corrente e ad ese¬ 
guire una routine il cui indirizzo di partenza è conserva¬ 
to nel vettore $0314, $0315. Ir> condizioni normali que¬ 
sto vettore contiene l’indirizzo $EA31, che corrisponde 
alla routine di interrupt principale. Quella, cioè, che si 
occupa della gestione della tastiera, dell’orologio di si¬ 
stema, del cursore e del motóre del registratore. 

Anche il circuito video, però, è in grado di richiedere 
un’interruzione al microprocessore. Naturalmente, è 
necessario modificare la routine di interrupt, per metter¬ 
la in grado di trattare anche questi tipi di interrupt. 


Listato 6. Programma di caricamento 
versione 48 Kbyte. 


1 REM 

******************************** 

* * 

* PROGRAMMA DI CARICAMENTO L/M * 

* * 

* UERSIONE 48K * 

* * 
******************************** 


10 CLEAR 65199 „ 

20 FOR i =>65200 TO 6534.6 
30 INPUT K 
40 POKE i,K 
50 PRINT i/PEEK i 
60 NEXT i 


Listato 7. Esempio di funzionamento. 


1 REM 

******************************** 
* * 

* ESEMPIO DI FUNZIONAMENTO * 

£ * 

******************************** 


10 

20 

30 

40 

50 


60 

- 7 ® 

90 

90 

100 


INPUT "4-GK7 (S/D >", LINE r 
,’'n.carattere? ",car 
LET ind=32400 
IF r * = "S” THEN 

LET ind=65200 
DEF FN a(c>n,x , y>=USR ind 
LET X =120 : 

LET y =120 ; 

LET can C =0 

LET X=X+2*(RND>.5) -1 
LET u=y+2*(RND>.5)-l 
POKE 0 jFN a ( canc>car , x,y) 
LET cancri 
GO TO 60 
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I registri di IRQ del VIC 

Come abbiamo detto, il VIC (Video Interface Chip) è 













Gli interrupt 
video del C 64 


in grado di generare richieste di interrupt in base ad 
eventi che riguardano la visualizzazione dei dati. Le 
cause di un interrupt possono essere di quattro tipi: 

1 ) il raster (pennello elettronico) ha raggiunto una deter¬ 
minata linea del quadro; 

2) una collisione tra uno sprite e lo sfondo; 

3) una collisione tra due sprite; 

4) un impulso dalla penna ottica. 

Vedremo, in particolare, i primi tre casi, trascurando 
l’ultimo che richiede l’uso di una light pen. 

I registri per la manipolazione degli interrupt del VIC 
sono due. In SD019 (vedi figura 1) vi è il registro delle 
richieste di interrupt. I primi 4 bit vengono attivati a 
seconda del verificarsi di una delle cause viste prima. 


bit 

7 

6 

5 

4 

3 

2 

1 

(1 


SD0I9 

IRQ 

• 

• 

• 

LP 

SSC 

SBC 

RAST 

Reg. Richiesta 
intcrrup 










SUOI A 

• 



•1 

LP 

SSC 

SBC 

RAST 

Reg. Abilitazione 
interrupt 










SDOIF. 

rrrr 

5 

4 1 

3 

2 

' 

o 

Reg. Collisioni 
.sprite-sprite 










SDOIF 

? 

<- 

5 

4 1 

3 

2 


o 

Reg. Collisioni 
sprite-sfondo 










Figura 1. 

Registri di collisione ed interrupt del VIC. 

LP —Light pen, 

SSC = Sprite-Sprite 

Collision, 

SBC= 

Sprite- Background Collision, Rasi 

= Raster. 


Questo non è, però, sufficiente a generare una richiesta 
di interrupt, poiché è necessario abilitare uno o più dei 
quattro bit di richiesta interrupt. 

Per ottenerne l'abilitazione è sufficiente porre ad uno il 
bit corrispondente del registro $D01 A. 

Quando nel registro SD0I9 uno dei quattro bit va 
alto, e il corrispondente bit del registro di abilitazione è 
alto, allora il bit 7 del primo registro viene attivato, 
creando la richiesta di interrupt. 

Entrambi questi registri hanno delle particolarità. Il 
secondo è un registro a sola scrittura. Il primo è invece a 
sola lettura con memoria. Questo vuol dire che una 
volta che uno dei bit di richiesta va alto, anche se la 
causa cessa tale bit resta in condizione uno. Per azzerare 
i bit di questo registro bisogna scriverci uno (proprio il 
contrario del normale). Per esempio, per azzerare tutto 
il registro si deve scrivere 255 ($FF). 

Questa struttura, a prima vista complessa, in realtà 
semplifica molto la gestione nei programmi. 

Poiché il punto di ingresso alla subroutine di gestione 
degli interrupt è lo stesso sia per quelli derivanti dal VIC 
che per quelli dovuti al timer interno del CIA, possiamo 
sfruttare la caratteristica di memorizzazione del registro 
SD019 per controllare se la chiamata viene dal circuito 


video. In un secondo momento si può controllare anche 
quale delle quattro possibili sorgenti ha causato l’inter- 
rupt ed in base a questo eseguire le opportune operazio¬ 
ni. 

Inoltre si può non attivare per niente la linea di inter¬ 
rupt ed interrogare periodicamente lo stesso registro per 
controllare se si è verificata una delle quattro ipotesi 
suddette. 

Collisioni tra sprite 

Nei programmi di giochi sono sempre presenti nume¬ 
rosi controlli di collisione tra le parti in movimento. 
Come abbiamo visto, con il C 64 il programmatore è 
sollevato da questa incombenza, poiché il video-chip 
segnala automaticamente nel registro SDO 19 se vi è stata 
una collisione tra due sprite o tra uno sprite e lo sfondo. 
Non solo, ma nei registri SD01E e SD01F vengono 
anche segnalati gli sprite responsabili. Questi due sono 
dei registri a sola lettura, avvenuta la quale si azzerano 
automaticamente. 

In pratica, se si verifica ad esempio uno scontro tra lo 
sprite 0 e lo sprite I, verranno messi allo stato alto i bit 0 
e 1 del registro $D01E. Quando questo registro segnala 
una collisione, automaticamente viene posto ad uno 
anche il bit 2 del registro SD019. 

Per azzerare il tutto bisogna dapprima rimuovere la 
causa della collisione, poi effettuare una lettura in 
$D01E per azzerare il registro e quindi fare lo stesso con 
il registro delle richieste di interrupt scrivendoci $FF 
(255). 

Il programma 1 visualizza sullo schermo due sprite, di 
cui uno è fisso al centro dello schermo e l’altro si muove 
utilizzando i tasti di cursore. Inoltre, in alto a destra 
viene visualizzato il contenuto dei registri di collisione e 
di quello degli interrupt. Spostando lo sprite I potrete 
osservare che passando sullo sprite centrale (0) vengono 
attivati i bit 0 e 1 del registro collisioni sprite-sprite ed il 
bit 2 del registro interrupt. Tornando a separare i due 
sprite la lettura dei registri provoca l’azzeramento di 
quello per le collisioni tra sprite, ma non di quello degli 
interrupt, che andrebbe azzerato scrivendoci 255. Lo 
stesso si può verificare spostando lo sprite sulle scritte 
che appaiono sullo schermo. 

Nuova routine di interrupt 

Il risultato migliore sarebbe senz’altro di poter trascu¬ 
rare completamente la posizione degli sprite ed ottenere 
che il programma salti automaticamente ad un certo 
numero di linea quando si verifica una collisione. Per 
ottenere ciò è necessario sfruttare l'insorgere di un inter¬ 
rupt per forzare un nuovo numero di linea. Il listato 2 in 
assembly lo realizza. 
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Gli interrupt 
del chip video del C 64 


Listato 1. Programma per controllare il contenuto 
dei registri del VIC, spostando uno sprite. 

1 PRINT“C <1CLR >11 <8CRSR D>JI<4CRSR R > 3ATT 
ENDERE, PREGO * 

8 GOSUB1000 

8 PRINT"[<1CLR> 3"TAB < 10 ) "IRQ■iPRINTTAB<10 
)"SSC"s PRINTTAB <10)"SBC” 

10 V IC=53248 

15 POKEVIC+33,1!P0KEVIC+32,6:REM COLORE S 
FONDO,BORDO 

20 REM *** MEMORIZZA IMMAGINE SPRITE *** 
30 FORI=0TO62«READBYTE 
40 P0KE832+I,BYTE•NEXT 

50 POKE2040,13«POKE2041,131REM PUNTATORI 

60 POKEVIC+2 1,3 s REM ABILITA SPRITE 

70 POKEVIC+39,0:REM COLORE SPR.0=NERO 

80 POKEVIC+40,7 s REM COLORE SPR.INGIALLO 

30 REM POSIZIONA LO SPRITE 0 AL CENTRO 

100 POKEV IC +0,150 s POKEVIC+1,120 

110 REM ESPANDE GLI SPRITES 

120 POKEVIC +23,3 sPOKEVIC*29 ,3 

130 REM *** POSIZIONA SPRITE I 

140 X=30iY=100iPOKEVIC+2,XiPOKEVIC+3,Y 

150 POKEVIC+25,255iREM AZZERA REGISTRO IN 

TERRUPT 

160 REM ROUTINE DI SPOSTAMENTO 
170 GET A*!IFA*= *"THEN230 1 

180 IFA*=“C<1CRSR U> 3"ANDY>50THENY»Y-1 
190 IFA$="C<1CRSR D>3"ANDY<210THENY=Y+1 
200 IFA*="C<1CRSR R > 3“AN0X<255THENX»X+1 
210 IFA*="C<1CRSR L > 3"ANDX >30THENX=X-1 
220 POKEVIC+2,XiPOKEVIC+3,Y!GOTO 170 
230 REM LEGGE REGISTRI IRQ, SPRITE-SPRITE 
COLLISION 

240 REM E SPRITE-BACKGROUND COLLISION 
250 IRQ=PEEK <VIC+25)lSSC“PEEK <VIC+30)! SBC 
=PEEK <V IC+31> 

260 REM VISUALIZZA CONTENUTO REGISTRI 
270 PRINT* t <1HOME > 3"A*<IRQ >:PRINTA*<SSC)« 
PRINTA$<SBC) 

290 GOTO 170 

500 0ATA64,0,1,16,170,4,6,170,144,10 
510 DATA 170,160,42,170,168,41 ,105,104 
520 DATA 169,235,106,169,235,106,169,235 
530 DATA 106,170,170,170,170,170,170,170 
540 DATA 170,170,170,170,170,166,170,154 
550 DATA 169,85,106,170,85,170,42,170 
560 DATA 168,10,170,160,1,0,64,1,0,64,5 
570 QATA0,80,0 

1000 REM PREPARA RIGHE PER VISl/ALIZZAZ ION 
E 

1010 REM CONTENUTO REGISTRI 
1020 0IMA*<255> 

1030 FORI=0TO255 
1040 FORBIT“7TO0STEP-1 

1050 IF < IAN0<C2tB IT) ) >0THENA*< I )«A*< I>+*£< 

1CHR$(209)> 3’! GOTO 1070 

1060 A*< I > «=A* < I > + " C< 1CHR*<215)>3 ■ 

1070 NEXTBIT,I ! RETURN 


Listato 2. Routine Assembly per l’intercettazione 
degli interrupt da collisione. 

c 000 

78 



se 1 


(Attiva Nuova Routine Interrupt 

c00 1 

a8 

14 


ld» 

• •lf 

l 

c 003 

8d 

14 

03 

sta 

•0314 

**0314,90313 vettore routine IRQ 

C006 

*9 

ce 


Ida 

NfcO 

i 

C008 

8d 

15 

03 

sta 

•0313 

i 

c00b 

m 



cl I 


i 

C00C 

60 



rts 


1 

c0Cd 

78 



se 1 


•Disattiva Nuova Routine IRQ 

c00e 

*9 

e a 


Ida 

«Ma 

l 

c 0 10 

8d 

14 

03 

sta 

•0314 

1 

C013 

• 9 

31 


Ida 

• •31 

1 

C013 

In 

15 

03 

sta 

•0313 

1 

C018 

«9 

00 


Ida 

• •00 

1 

c0 la 

8d 

t a 

d0 

sta 

•d0 la 


c 0 ld 

►.lì 



cl 1 


l 

c 0 I • 

60 



rts 


i 

C01f 

78 



se 1 


(NUOVA ROUTIhC IRQ 

c 020 

83 

fc 


sta 

•fe 

1 

C02S 

*<J 

18 

de 

Ida 

•d019 

(Se bit 7*0 allora L'interrupt non 

c 023 

30 

05 


bmi 

*c02c 

i •' stato generato dal VIC • si 

C027 

*3 

fe 


Ida 

•fe 

i torna alla routine normale. 

<029 

•11 

31 

• 4 

Jn*> 

«e a31 

i 

C02c 

*9 

00 


Ida 

• •00 

(Disabilita tutti gli interrupt 

C02« 

94 

li 

d0 

sta 

•d01a 

t provenienti dal VIC 

C031 

*9 

i 4 


Ida 

• »f f 

(Azzera registro richieste int. 

C033 

96 

19 

d0 

sta 

*dO 19 

i 

C036 

*2 

fe 


ldx 

• •fa 

(Azzera lo stacK e forza 

C038 

9 % 



txs 


( l'indirizzo SC042 come ritorno 

c 039 

*3 

C0 


Ida 

• •c0 

i dalla routine di IRQ. 

C03b 

4* 



pha 


i 

c03c 

*9 

42 


Ida 

• •42 

1 

C03e 

48 



pha 


1 

C03f 

08 



php 


1 

C 040 

40 



rt 1 


l 

C04 1 

• t 



nop 


(Routine di GOTO alla linea 

C042 

20 

7a 

46 

Jsr 

•a67a 

( In *FB ,dFC 

C043 

Alt 

*7 


Ida 

• •a7 

(Forza indirizzo routine 

C047 

99 



Pha 


( Cxecute Statement nello stacK. 

c 048 

«9 

• 9 


Ida 

• •e 9 

i 

C04a 

48 



pha 


I 

C04b 

*3 

R» 


Ida 

•fb 

(Carica numero linea in *14,13 

C04d 

83 

14 


sta 

• 14 

I 

C04f 

• 3 

fc 


Ida 

•fc 

i 

C03 1 

83 

13 


sta 

• 13 

i 

C033 

4c 

bc 

48 

Jw 

• a8bc 



Per abilitare la nuova routine di interrupt è sufficiente 
eseguire la routine in SDOOO (Sys 49152), che modifica il 
vettore della IRQ routine. La nuova routine, che parte 
da SD01F, controlla il bit 7 del registro SD019 per 
verificare se l’interrupt era stato richiesto dal VIC. Di¬ 
versamente torna alla routine normale (SEA31). 

Se la richiesta di interrupt proveniva dal VIC, allora, 
prima di forzare il salto alla linea prescelta, disabilita gli 
interrupt video. In questa maniera il programma in 
BASIC può provvedere a spostare lo sprite in collisione 
e a riabilitare l’intercettazione quando è il caso di farlo. 
Se non si ha questa accortezza, il computer cade in loop, 
continuando a chiamare la routine di interrupt in conti¬ 
nuazione. 

Il numero di linea a cui si vuole saltare in occorrenza 
di una collisione va conservato nelle locazioni $FB, $FC 
(251,252) nell’ordine byte basso, alto. 

Riassumendo, per abilitare la nuova routine di IRQ va 
dato il Sys 49152. Mentre per attivarla bisogna: 

1) leggere i registri SD01E, SD01F, per azzerarli ed 
eliminare la possibilità di interrupt non voluti; 

2) azzerare il registro di richiesta interrupt, scrivendoci 
255; 

3) abilitare l’interrupt voluto, scrivendo in SD01A il 
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Gli interrupt 
video del C 64 


Listato 3. Programma dimostrativo della routine 
di intercettazione di collisioni. 

1 PRINT * C < t CLR >]C < 8CRSR 0>][<8CRSR R > 3ATT 
ENDERE, PREGO“ 

10 VIC=53248 

15 POKEVIC + 33,1s POKEVIC+32,6 : REM COLORE S 
FONDO,BORDO 

20 REM *** MEMORIZZA IMMAGINE SPRITE *** 
30 FORI=0TO62:READBYTE t P0KE832+I,BYTEiNEX 
T 

40 GOSUB 50000:REM CARICA ROUTINE LM 
50 POKE2040, 13 :POKE2041,13:REM PUNTATORI 
SPRITE 

60 POKEVIC+21,3 : REM ABILITA SPRITE 

70 POKEV IC+39.,0: REM COLORE SPR.0=NERO 

80 POKEVIC+40,7 : REM COLORE SPR.l=GIALLO 

90 REM ESPANDE GLI SPRITES 

100 POKEVIC +23,3:POKEVIC+29,3 

110 REM *** POSIZIONA SPRITE 1 

120 X*»30 : Y= 100 : POKEV IC+2,X « POKEV IC+3,Y 

130 REM POSIZIONA SPRITE 0 E ABILITA 

140 GOTO2048: REM L’INTERCETTAZIONE DELLE 

COLLIS. 

150 PRINT”t <1CLR >I” 

1S0 REM ROUTINE DI SPOSTAMENTO 
170 GET A*:IFA*="-THEN170 
180 IFA4>= " C < 1CRSR U > 1 "ANDY>50THENY=Y- 1 
190 IFA*=“C<1CRSR D > 3“ANDY<210THENY=Y+1 
200 IFA*=“t<lCRSR R > 3"ANDX<255THENX=X+1 
210 IFA*="t<1CRSR L > 3"ANDX >30THENX=X-1 
220 POKEVIC+2,X:POKEVIC+3,Y:GOTO 170 
490 REM DATA IMMAGINE SPRITE 
500 DATA64 ,0,1,16,170,4,6,170,144,10 
510 DATA 170,160,42,170,168,4 1,105,104 
520 DATA 169,235,106,169,235,106,169,235 
530 DATA 106,170,170,170,170,170,170,170 
540 DATA 170,170,170,170,170,166,170,154 
550 DATA 169 ,85,106,170,85,170,42,170 
560 DATA 168,10,170,160,1,0,64,1,0,64,5 
570 DATA0,80 

2040 REM ROUTINE INTERCETTAZIONE COLLIS IO 
NI 

2048 PRINT" C <1CLR > 3FA I ATTENZIOhE !!!!*: 
2050 POKEVIC+0,RND(13*200 +55 s REM NUOVA PO 
SIZIONE 

2060 POKEVIC+1,RND <1> * 160 + 50 : REM DELLO SP 
RITE 0 

2070 REM AZZERA REGISTRI COLLISIONI 
2080 SS=PEEK <VIC+30)« SB=PEEK <VIC+31> 

2090 REM AZZERA REGISTRO INTERRUPT 

2100 POKEVIC+25,255 

2110 REM RIABILITA GLI INTERRUPT 

2120 POKEVIC+26,4 : REM (COLLISIONE SPRITE- 

SPRITE) 

2130 GOTO 150 

50000 REM CARICA ROUTINE IN LM 


50010 IN=49152 : REM LOCAZIONE PARTENZA 
50020 READN:IFN<0THEN50050 
50030 POKEIN,N:IN=IN+1 :GOTO50020 
50040 REM LINEA ROUTINE DI COLLISIONE=204 
8 

50050 P0KE251,0:POKE252,8 

50060 SYS49152 : REM ABILITA NUOVO IRQ 

50070 RETURN 

59000 REM DATA ROUTINE LM 

60000 DATA 120,169,031,14 1,020,003,169,192 
60010 DATA 141,021,003,088,096,120,169,234 
60020 DATAMI ,020,003,169,049,141 ,021,003 
60030 DATA 169,000,141,026,208,088,096,120 
60040 DATA 133,254,173,025,208,048,005,165 
60050 DATA254,076,049,234,169,000,141,026 
60060 DATA208,169,255,141,025,208,162,254 
60070 DATA 154,169,192,072,169,066,072,008 
60080 OATA064,234,032,122,166,169,167,072 
60090 DATA 169,233,072,165,251,133,020,165 
60100 DATA252,133,021,076,188,168,234,234 
,-l 


Listato 4. Routine Assembly, che servendosi dell'inter- 
rupl generato dal raster visualizza il bordo in cinque 
colori diversi. 


C000 

70 



se 1 


(Obli ita Nuova Routine IRQ a 

C00 1 

a9 

23 


Ida 

**23 

• attiva interrupt da restar. 

C0O3 

M 

14 

03 

sta 

*0314 

i 

cOOG 

«9 

CO 


Ida 

MSc 0 

i 

c 008 

Od 

13 

03 

sta 

•0313 

«Modifica vettore IRQ «0314,*0313 

c0Ob 

• 9 

00 


Ida 

*•00 

1 

c00d 

83 

f b 


sta 

• fb 

i 

C00f 

*9 

33 


Ida 

*•33 

«Setta il primo punto di Interrupt 

C011 

Od 

12 

d0 

sta 

•d0 12 

i 

c 0 1 4 

*9 

Ib 


Ida 

*» Ib 

i 

C016 

Od 

11 

d0 

sta 

•dei i 

1 

c 0 19 

*9 

01 


Ida 

*•01 

•Attiva IRÒ 

C01t> 

Od 

la 

dO 

sta 

•d0 la 

• 

cOle 

SO 



cl i 


i 

COI# 

60 



rts 


• 

c 020 

33 

63 

93 



«Linee di quadro alle quali il 

C023 

c3 

4 9 





C023 

70 



set 


«Nuova Routine IRÒ 

C026 

OS 

. « 


sta 

•fa 

« 

c 020 

■>.) 

18 

d0 

Ida 

*d0 19 

«Se 1 * Interrupt non e * generato 

C02b 

dO 

30 


bmi 

•<032 

« dal restar torna alla routine 

c02d 

*5 

4 e 


Ida 

•fe 

« normale in «ea31 

C02f 

4c 

31 

ea 

J rrp 

•ea31 

t 

c 032 

• 6 

ib 


ine 

•fb 

«*fb"puntatore colore e tabella 

C034 

»6 

fb 


ldx 

•fb 

« 1 Inee quadro. 

C036 

•• 

o-:. 


CPX 

*•03 

t 

C038 

d0 

04 


bne 

Sc03a 

1 

c 03* 

• 2 

00 


ldx 

*•00 

• 

C03c 

86 

fb 


stx 

•fb 

• 

c 03* 

bd 

20 

C0 

Ida 

•<020 

x «Legga prossima linea interrupt 

c 04 1 

8d 

12 

d0 

sta 

•d0l2 

«La memorizza nel registro raster 

c 044 

8* 

20 

d0 

stx 

«dO20 

«Colore bordo 

C 04 7 

• 9 

44 


Ida 

**f f 

«Azzera registro interrupt 

C049 

8d 

19 

dO 

sta 

•dO 19 

I 

c 04c 

60 



pia 


l 

c04d 

*0 



tay 


l 

C04e 

60 



pia 


« 

C04f 

sa 



tax 


« 

c 030 

68 



p 1 a 


« 

cesi 

40 



rt i 


« 
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Listato 5. Programma dimostrativo degli interrupt ge¬ 
nerati dal raster. Crea un bordo multicolore. 

10 REM ***** IRQ - RASTER ****** 

20 IN=43152 

30 READNsIFN<0THENSYS49152 !EMD 
40 POKEIN/N!IN=IN*1 !GOTO30 

60000 DATA 120,168,037,141,020,003,169,192 
60010 DATA 141,021,003,169,000,133,251,169 
60020 DATA051,141,018,208,169,027,141,017 
60030 DATA208,169,001,141,026,203,088,096 
60040 DATA051,099,147,195,249,120,133,254 
80050 DATA 173,025,208,048,005,165,254,076 
60060 DATA049,234,230,251,166,251,224,005 
60070 DATA208,004,162,000,134,251,189,032 
60080 DATA 192,141,0 18,208,142,032,208,169 
60090 DATA255,141,025,208,104,168,104,170 
60 100 DATA 104,064,234,234,234,234,234,234 
,-l 


valore 2 o 4 o 6 (collisione sprite-sprite, sprite-fondo, 
entrambi). 

Un esempio è dato col programma 3. Vedrete lo sprite 
blu allontanarsi tutte le volte che tenterete di raggiun¬ 
gerlo. 

L’interrupt da raster 

L’altra sorgente di interrupt proveniente dal VIC è il 
raster. Il raster (pennello elettronico) è quello che si 
occupa di disegnare sullo schermo, linea per linea, l'im¬ 
magine della mappa video. Le linee dello schermo sono 
200 (25 caratteri per 8 pixel) e vanno dal valore di raster 
$033 a $0FB. Gli altri valori corrispondono al bordo 
dove non vi sono caratteri. 

Il registro di raster c formato da 9 bit, di cui 8 sono in 
$D() 12 e il bit più significativo è il bit 7 di $D0l 1. 

Il registro SDO 12 lo si può leggere per conoscere la 
posizione attuale del pennello. Se, invece, vi si scrive il 
valore impostato, viene continuamente confrontato con 
il valore del raster e quando sono uguali viene abilitato il 
bit 0 del registro di richiesta interrupt. 

Le applicazioni di questa particolarità sono molteplici. 
Ad esempio, si può ottenere mezzo schermo in grafica e 
mezzo in modo testo. Impostando il valore $33 si ha un 
interrupt all’inizio dello schermo. Si può quindi selezio¬ 
nare il modo grafico ed impostare il successivo valore in 
$93 (circa metà schermo). Quando il raster vi giunge si 
ha un nuovo interrupt, che riporta lo schermo al modo 
testo e rimette $33 nel registro di raster per il quadro 
successivo. 

Alla stessa maniera si possono visualizzare più di otto 
sprite o creare un bordo multicolore, come è stato fatto 
nei listati 4 e 5. 


SHARP MZ-700 


Autostart e copia programmi 

di Martino Sangiorgio 

Nelle ultime due pagine del manuale in dotazione allo 
Sharp MZ-700 (ma tali pagine non sono presenti in tutti 
i manuali) viene specificata la procedura da effettuare 
per ottenere una copia dell’interprete BASIC. 
L’interprete infatti, come tutti i programmi scritti in 
linguaggio macchina, è autoeseguibile, cioè non appena 
caricato viene automaticamente posto in esecuzione ad 
una determinato indirizzo di memoria (indirizzo di lan¬ 
cio o di esecuzione). L’interprete BASIC, però, contra¬ 
riamente alla maggior parte dei programmi in linguag¬ 
gio macchina, effettua delle commutazioni dei banchi di 
memoria, per cui, una volta posto in esecuzione, non è 
più possibile, facendo uso del tasto Reset e andando a 
ricercare nelle aree di lavoro del programma Monitor gli 
indirizzi voluti, effettuarne una copia su cassetta. 

La procedura descritta alle pagine 209 e 210 del ma¬ 
nuale permette di inibire la funzione di “autostart” del¬ 
l’interprete BASIC, ma purtroppo non funziona con 
altri programmi. L’amico Stefanelli Mario, di Sedate, 
mi invia invece un suo programmino in linguaggio mac¬ 
china. che permette di inibire la funzione di Autostart di 
qualsiasi programma in linguaggio macchina, permet¬ 
tendone la copia e la eventuale modifica. 

Il programma è visibile nel listato 1. 

Per inserire e salvare il programma in questione usate la 
procedura seguente. 

Accendete l’elaboratore oppure premete il tasto Reset 
posto sul retro del computer. In tal modo si accede al 
programma Monitor del MZ-700. Ora digitate MA000 
seguito da Cr. Vi apparirà il valore A000 (l’indirizzo di 


0000 

CD 

D8 

04 

COLL 

04D8 

CDD8 

0003 

DO 

07 

01 

JP 

C> 0107 

00 

0006 

CD 

09 

00 

COLL 

0009 

CD 

0009 

1 1 

00 

09 

LD 

DE,0900 

q 

O00C. 

CD 

01 

08 

COLL 

0801 

CDo 

O00F 

1 1 

FI 

10 

lD 

DE,10F1 

F 1 

0012 

CD 

01 

08 

COLL 

0801 

CDo 

0015 

CD 

F8 

04 

COLL 

04F8 

CDre 

0018 

DO 

07 

01 

JP 

C, 0107 

00 

001B 

20 

06 

1 1 

lD 

HL, CI 1063 

* 

001 E 

C3 

OD 

00 

JP 

00OD 

C3D 
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memoria che vi accingete a modificare) e il contenuto 
attuale di tale indirizzo. Digitate, nella posizione del 
cursore, il primo codice del programma (CD) e premete 
Cr. Vi apparirà A001 e il suo contenuto. Digitate ora il 
secondo codice (D8) e Cr. In A002 digiterete 04, in A003 
digiterete DA e cosi via, fino aH'indirizzo A020. Quando 
apparirà A021 il programma dovrebbe essere termina- 
• to, per cui premete contemporaneamente i tasti Shift e 
Break. Controllate che i 33 indirizzi di memoria conten¬ 
gano effettivamente i valori esadecimali voluti (ad esem¬ 
pio utilizzando il comando Monitor DA000), dopo di 
che salvate su cassetta il programma appena digitato, 
utilizzando il comando Monitor: SA000A0200000. 

Tale comando permette di salvare su cassetta il conte¬ 
nuto della memoria compreso tra gli indirizzi A000 e 
A020 e di imporre l’indirizzo 0000 come indirizzo di 
lancio. Alla domanda che vi porrà il computer sul nome 
da assegnare al programma rispondete col nome secon¬ 
do voi più appropriato (ad esempio Autostart). Ora il 
programma è registrato su cassetta. Se volete verificarne 
il contenuto, riavvolgete la cassetta e digitate il coman¬ 
do Monitor V. 

In qualsiasi momento vogliate utilizzare tale program¬ 
ma, usate la procedura seguente. 

Accendete l’elaboratore oppure premete il tasto Reset. 
Ponete nel registratore la cassetta su cui avete registrato 
il programma Autostart e caricatelo usando il comando 
Monitor L. 

Alla fine del caricamento il controllo viene ripassato al 
Monitor. Togliete ora la cassetta col programma Auto¬ 
start e inserite la cassetta col programma da copiare. Nel 
nostro esempio utilizzeremo il nastro su cui è registrato 
l'interprete BASIC. Date ora il comando Monitor 
JA000 e, quando viene richiesto, premete il comando 
Play del registratore (dovrete naturalmente aver già 
riavvolto la cassetta). Al termine del caricamento il 
controllo verrà ripreso dal comando Monitor. 

Ora, dall’indirizzo 10F0 h in avanti, si possono leggere 
tutte le informazioni utili inerenti il programma appena 
caricato. In particolare ci interessa il contenuto dei regi¬ 
stri da 11 02 h a 1107u (osservabile con il comando Moni¬ 
tor D10F0). Nell’esempio scelto i valori che leggeremo 
sono visibili in tabella 1. 

Il primo valore letto (6BA0„) è la lunghezza del pro¬ 
gramma. Il secondo valore letto (1200,,) è l’indirizzo 
iniziale di memorizzazione del programma, mentre il 
terzo valore dà l’indirizzo di lancio. Poiché nel comando 
Monitor S avremo bisogno dell’indirizzo finale di me¬ 
morizzazione del programma, dobbiamo effettuare una 
somma tra i primi due valori esadecimali letti: 6BA0 H + 

1200„ - 1 = 7D9A h . 

L’indirizzo finale del programma (nel nostro caso l’in¬ 
terprete BASIC) è dunque 7D9A H . 

Per ottenere una copia dovremo ora digitare il comando 
Monitor: S12007D9A7D79. 


Terminata la copia, e l’eventuale verifica col comando 
Monitor V, potrete mettere in esecuzione il programma 
caricato digitando: J7D79. 

I valori esadecimali letti agli indirizzi da 1102„ a 1107,, si 
riferiscono naturalmente all’interprete BASIC. Altri 
programmi avranno necessariamente valori diversi. ■ 


Indirizzo 

Contenuto 

Valore effettivo 

1102 

1103 

A0 

6B 

} 6BAO11 

1104 

1105 

00 

12 

} 1200,1 

•1106 

1107 

79 

7D 

} 7D79„ 


Tabella 1. Valori esadecimali letti agli indirizzi da 
1102 1 , a 1107,i nel caso si voglia copiare l’interprete 


BASIC. 
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Diventa anche tu ur 
con le super-riviste fir 



Bit 

La prima rivista europea di 
personal, home e business 
computer,- software e accessori. 
Una pubblicazione fondamentale 
per chi si interessa del mondo dei 
piccoli sistemi. 

In ogni numero l'inserto "Superbit"-. 
96 pagine di programmi per i più 
diffusi personal computer. 

- Prezzo L. 5.000 

- Abb. annuo 111 numeri) L. 43.000 




Personal Software 

L'unica rivista italiana dedicata al 
software per personal computer. 
Punto di riferimento essenziale per 
tutti gli hobbisti di personal e 
coloro che si interessano di 
programmi e sistemi operativi. 

In ogni numero, programmi, giochi, 
utility , consigli di programmazione 
per i più diffusi personal computer. 

- Prezzo L. 4.000 

- Abb. annuo 111 numeri) L. 34.000 




Home Computer 

La rivista del computer in casa. 
"Prove su strada" di giochi e 
programmi applicativi per: Apple, 
Atari, BBC, Commodore, Philips, 
Sega, Sharp, Sinclair, Sony, Texas e 
tutti i maggiori home computer che 
man mano si affermano sul 
mercato. 

Tutte le informazioni più utili per un 
uso divertente del vostro home 
computer. 

- Prezzo L. 3.500 

- Abb. annuo 111 numeri) L. 31.000 
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Super-Jacksoniano 
nate Jackson e J-Soft. 


Videogiochi 

La prima rivista di videogames, 
home computer, giochi elettronici. 

E indirizzata sia agli utenti 
domestici sia a tutti coloro che 
operano nel settore. 

Videogiochi è un vero 
portabandiera, per un pubblico 
estremamente eterogeneo, 
composto in massima parte da 
giovani e giovanissimi appassionati 
di questo nuovo mondo. 

- Prezzo L. 3.500 

- Abb. annuo (11 numeri) L. 30.000 


Super-Commodore 

Il periodico indispensabile per il 
tuo computer Commodore VIC 20, 
C64 o CIÒ. 

Ogni mese in edicola una miscela 
esplosiva di articoli, programmi e 
idee su rivista e cassetta. 

- Prezzo L. 7.500 

- Abb. Rivista + cassetta L. 66.000 

- Abb. solo Rivista L. 30.000 



Paper-Soft II settimanale 
per il tuo computer! 

Il primo settimanale di programmi 
per il tuo personal computer. In 
ogni numero troverai: giochi e 
utility per Apple, TI99, ZX Spectrum, 
C64, VIC 20, CIÒ e MSX. 

Da febbraio in edicola, ogni 
settimana, edizioni esclusive per 
C64 e ZX Spectrun. 

- Prezzo L. 1.000 




Super-Sinc 

Se possiedi uno ZX Spectrum 
oppure un Sinclair QL questa è la 
tua rivista! Ogni mese in edicola 
rivista e cassetta con tutto il meglio 
per il tuo home computer. 

- Prezzo L. 7.500 

- Abb. Rivista + cassetta L. 66.000 

- Abb. solo Rivista L. 30.000 
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Apple 


■ Vendo Apple II plus 46 Kbyte, language card originale. PAL I 

■ color card, driver 5.25“ con interfaccia, monitor 9" fosfori ■ 

■ verdi Iret, stampante Epson MX 80 FT grafica con interfac- ■ 

■ eia parallela Centronics. Il tutto a L. 3.300.000. Telefonare a. ■ 

■ Carlo Magnaghi - Tel. 02/227695 ■ 


Compro software per Apple II. scientifici, gestionali, utilità, gio¬ 
chi. Per maggiori informazioni scrivere a: Massimo Tabasso - 
Piazza Molineris, 1 • 12038 Savigliano (CN) 


Compro programmi scientifici, finanziari, contabili per Apple Ile, 
originali o non purché forniti di manuale ed in edizione italiana 
Inviare lista. Marco Chiosa - Via Guttuari, 5 - 14100 Asti - Tel. 
0141/30605 


Offro 200 programmi (giochi, utility, gestionali, totocalcio) a L. 
300.000. sviluppati su Apple II. Vendo riviste di informatica. 
Carlo Cocciazucca - Via Montesecco. 15 - 65010 Spoltore (PE) - 
Tel. 085/207466 


■ Causa cambio sistema vendo Apple Ile nuovissimo, pellet- ■ 

■ to, ancora in garanzia, completo dischi Utilities. Telefonare ■ 

■ ore 17.00 in poi. Francesco Molinari - Via Cilea, 134 - 20151 1 

■ Milano - Tel. 02/3534058 ■ 


I Cambio, vendo programmi per Apple II e compatibili (Oran- ■ 

■ ge. Lemon, Unitronics. AM 100, ecc.) Posseggo una lista in ■ 

■ continuo aggiormanento. A richiesta fornisco programmi ■ 

■ specifici o personalizzali. Livio Stabile - Via Dante. 10/B - ■ 

■ 33051 Aquileia (UD) - Tel. 0431/91610 ■ 


■ Per Apple He. Ile. Il plus e Macintosh offrasi: un software H 

■ eccellente, una vastissima scelta, una personalizzazione ■ 

■ estremamente curata nel materiale e nel trattamento. Mas-1 

■ sima serietà. Richiedere lista a: Luigi Palumbo - Via A ■ 

■ Ristori. 8 • 00197 Roma • Tel 06/802783 ■ 


Vendo per Apple II "Suportoto 1.0", superprogramma Totocalcio 
Inedito; tre diverse opzioni di selezioni incrociate (nr segni 1X2 
consecutivi, correzione errori) con output nr. colonne utili, svi¬ 
luppo su monitor a L. 60.000 Roberto Rossi - Via Lario. 26 - 20159 
Milano - Tel. 02/6070236 


Commodore 


Vendo Commodore CBM 3032/4042 a fosfori verdi 32 Kbyte 
RAM. con registratore C2N. manuali, beeper, interfaccia musica 
a L. 700.000 Telefonare dopo cena o scrivere. Roberto Biscani - 
Via Virgolana. 35 - 38057 Porgine Vals. (TN) - Tel. 0461/532690 


Vendo VIC 20. super expander, libri. Alla scoperta del VIC 20". 
"Grafica per VIC", "Giochi per il vostro VIC 20" al miglior offe¬ 
rente. Telefonare ora di cena a: Massimo Orengo - Via Como. 
31/4 - 20021 Bollate (MI) - Tel. 02/3510308 


Vendo per CBM 64 fantastico programma di sintesi vocale; 
possibilità di inserire frasi per allofoni, scegliere l'intonazione 
voluta, vocabolario infinito. Prezzo originale L. 150.000. Cedo a 
L. 40.000. Telefonare ore pasti. Gianluca Niccoli • Via Macallò, 
103 - 51100 Pistoia - Tel. 0573/570741 


Ijor C64 cerco disperatamente routine di autostarl In BASIC (o 
LM lanciata da programma BASIC) che permetta l'avvìo auto¬ 
matico del programma qualunque sia il modo in cui viene cari¬ 
cato. Telefonare ore pasti. Gianluca Niccoli - Via Macallò, 103 - 
51100 Pistoia - Tel. 0573/570741 


Intendo fondare un club Commodore 64 in provincia di Bolzano. 
Disponiamo di software e manuali. Esclusi mercenari. Maurizio 
Moro - Via Europa. 8/c - 39031 Brunico (BZ) - Tel. 0474/20194 


Vendo, causa passaggio a sistema superiore. VIC20 più espan¬ 
sione 3-6-16 Kbyte. registratore C2N, joystick, una cartuccia, 
circa 130 giochi, ecc. su cassette. Tutto a L. 500.000. Giampiero 
Piccini - Via Avancini. 26 - 20142 Milano - Tel. 02/846715 


Totocalcio col Commodore 64. Sviluppo di sistemi con limitazio¬ 
ni varie dei segni 1. X. 2. Ricerca colonne vincenti. Vendo softwa¬ 
re su cassetta a L. 35.000. Telefonare in orario di cena a: Marzio 
Bruni - Via Ricordi. 11 - 20131 Milano - Tel. 02/203973 


Vendo CBM 4032 con floppy 2031. stampante 4032 e registratore 
CN2 più box con altoparlante e amplificatore. Ferruccio Bassini - 
Via Casanova. 12 A - 26020 Cavatigozzi (CR) - Tel. 0372/59077 


Hai o sei interessato a programmi di astrologia per CBM 64? 
Scrivi o telefona per scambi o vendite e informazioni sull'argo¬ 
mento. Garantita massima serietà e rapidità Francesco Pucci • 
Via Perris. 14 - 84012 Angri (SA) - Tel. 081/949312 


Vendo VIC 20 più registratore C2N, cartridge. 100 programmi 
(Abductor, Gridrunner. Milllped, Scramble. grafica ....), listati. 
Tutto nuovissimo con imballi originali a L. 250.000 trattabili. 
Telefonare ore pomeridiane. Marco Teloni • Via Isidoro de Lun¬ 
go. 38 - 00137 Roma - Tel 06/8274597 


Cerco testi e manuali In buono stato, possibilmente economici, 
riguardanti il C64. Adriano Peric • Loc. Visintini. 19 • 34070 
Doberdò del Lago (GO) 


Desideriamo contattare possessori di CBM 64 che abitino nella 
nostra zona per scambio/vendila di software (particolarmente 
graditi i programmi di lilility). Carmine Del Galdo • Via A. De 
Gasperi. 9 - 84018 Scarati (SA) - Tel. 8639057 


Vendo per CBM 64 Istruzioni originali In Italiano per 11 facile uso 
di stampanti, disk drive e di molti programmi. Gino Uglietti - Via 
Strambio. 108 - 27011 Belgioso (PV) - Tel. 0382/960804 


Cerco per C64 programmi riguardanti la medicina generale e/o 
oculistica, esclusi gestionali. Telefonare ore pasti o scrivere a: 
Claudio Carelli - Via G.M. Barbieri. 14 - 41100 Modena • Tel. 
059/220335 


Vendo per Commodore 64 programma gestionale IVA. Memo¬ 
rizza le fatture, stampa il registro IVA, l'elenco fornitori e clienti 
e dichiarazione annuale. Il programma è indicato per negozi e 
piccole industrie. Rag. Luciano Usuelli - Via Isonzo, 31 - 21100 
Varese - Tel. 0332/242596 


Compro II manuale del Sintetizzatore vocale "Sam” per il C64 
(anche fotocopiato). Paolo Carnuti Borani - Via Don Minzoni, 5 - 
43100 Parma - Tel. 0521/38239 


Vendo per Commodre 64 "The Hobblt" della Melbourne House, 
completo di istruzioni in inglese a L. 12.000. Telefonare ore 
pasti. Giovanni Lombardo - Via Croce Rossa. 25 - 90144 Palermo 
- 502280 


Vendo VIC 20, C2N. 3 libri con programmi, manuale, cavetti, 
alternatore, ecc; una marea di programmi su cassetta: Space 
Invaders. Frogger. Scacchi (8 Kbyte), Pac Man (8 Kbyte). 40 
Colonne (8 Kbyte). Donkey Kong. Formula 1. anche cartridge 
Cosmic Cruncher. Vitale Pasquale - Via Baroni. 104 - 20142 
Milano 


Vendo VIC 20 più registratore, 50 giochi. 20 programmi, il tutto a 
L. 250.000. Telefonare dopo le ore 20. Davide' Sommella - Piazza 
Dergano. 9 • 20158 Milano - Tel. Ó2/6085929 


E' nato il Commodore Club della bassa bergamasca. Scambio 
listati e programmi, scrivere a: Commodore Club - Casella Po¬ 
stale - 24058 Romano Lombardo (BG) 


Vendo Commodore VIC 20 come nuovo, vera occasione L. 
180.000 più 6 cartridge prezzo trattabile. Telefonate o scrivete al 
più presto. Roberto Savelli - Via S. Stefano, 16 - 40125 Bologna - 
Tel. 051/278038 


Vendo VIC 20 più espansione 16 Kbyte. il tutto con pochi mesi di 
vita, a sole L. 250.000. Saverlo Rosari - Via Repubbliche Marina¬ 
re. 53 - 00121 Ostia Lido (RM) - Tel. 06/5615637 


■ Per C64 vendo programma Totocalcio statistico, con con- ■ 

■ frollo automatico punteggio conseguito a L. 30.000. Solo su ■ 

■ disco. Per ulteriori informazioni scrivere o telefonare dalle ■ 

■ ore 14.30 alle 15.30. Calcedonio Meli - Via G. Amico Valenti. ■ 

■ 89 • 93100 Caltanissetta (CL) - Tel. 0934/23365 ■ 


Vendo programma allineamento testina drlvor 1541 con manua¬ 
le e due dischi a L. 100.000; manuale e disco per sproteggere e 
copiare programmi L. 65.000. Scrivere a. Leonardo Landini - Via 
Corcos. 5 - 50142 Firenze - Tel. 055/714360 


■ Causa militare vendo VIC 20 più registrato^ C2N, expander ■ 

■ 3 Kbyte. joystick, cartridge "Alien", cassette C60 zeppe di ■ 

■ giochi ed utility a L. 350.000. Scrivere o telefonare ore pasti ■ 

■ a: Maurizio Tanese - Via G. Di Vittorio. 10 - 20020 Lainate ■ 

■ (MI) -Tel. 02/9371397 ■ 


Vendo, causa passaggio a sistema superiore VIC 20 piu registra¬ 
tore C2N più espansione 3-8-16 Kbyte. joystick, cartuccia, circa 
130 giochi tra cui Amok, Spaco Invaders. Pac Man. ecc. in 
perfetto stato a L. 500.000. Giampietro Piccini - Via Avancini. 26 - 
20142 Milano - Tel. 02/8467152 


Vendo Commodore 64 più registratore Datasene più “Guida di 
riferimento per il programmatore", giochi e programmi vari, il 
tutto in ottimo stato e con imballi originali a L. 620.000 non 
trattabili. Pietro Borgogno - Via Revigliasco, 80/6 -10027 Monca- 
lieri (TO) - Tel. 6406728 


Compro "Manuale di riferimento per II programmatore” per il 
VIC 20 in italiano. Pago prezzo di copertina se in buono stato. 
Solo zona Napoli. Telefonare a: Ettore Mattiacci • Via Avvocata, 
7 - 80135 Napoli - Tel. 081/315304 


Vendo stampante Commodore MPP1364 più interfaccia IEEE448 
per passaggio ad altro sistema; praticamente nuova. L. 
1.300.000. Possibili dimostrazioni. Eugenio Ferrarlni - Via Bella¬ 
ria. 97 - 41050 Modena - Tel. 059/363194 


Vendo VIC 20 più registratore, espansioni 3-16 Kbyte, joystick, 
paddle. 2cartidges e programma "Matematico Scientifico", cas¬ 
sette e giochi vari, 5 libri a L. 350.000 trattabili. Mario Zitelli • Via 
Enrico Fermi. 130 - 00146 Roma - Tel. 06/5580745 


■ Vendo In blocco CBM 64, floppy disk, registratore dedicato, ■ 

■ 100 programmi tra i più famosi su disco e cassetta, 50 ■ 

■ cassette da registrare, joystick, riviste a L. 1.000.000. Imba- ■ 

■ Ili originali. Michelangelo Fumagalli • Via Monte Generoso, ■ 

■ 52-20155 Milano-Tel. 02/398033 ■ 


Vendo VIC 20 perfetto. Jean-Paul Dal Monte - Fraz. La Cori, 3 - 
11020 Gressan (AO) - Tel. 0165/581440 


Compro Commodore 64 purché perfetto. Jean-Paul Dal Monte - 
Fraz. La Cort, 3 - 11020 Gressan (AO) - Tel. 0165/581440 


Cerco kit per trasformazione floppy disk Commodoro 3040 In 
4040. Scrivere a; Rinaldi Domenico - Via O. Vigliani, 15/10 -10135 
Torino-Tel. 011/616054 


Cerco Commodore 64 completo di registratore. In cambio offro 
proiettore sonoro bipasso con lampada 150 watt, avanti-indietro 
veloce senza togliere il film. Telefonare dopo le 17.30. Giovanni 
Alarici - Via Boccherlni, 13 - 41100 Modena - Tel. 059/536477 


Cerco qualsiasi versione del Pascal su cassetta per CBM 64. 
Chiunque lo avesse è pregato di contattarmi per scambio di 
materiale. Claudio Veronese • Via Priv. Monte Bianco, 1 - 20098 
S. Giuliano (MI) - Tel. 02/9842139 


Vendo stampante Commodore MPS801 a L 400.000 e VIC 20 
usato pochissimo a L. 180.000. Cerco fotocopie del Program¬ 
merà Tool-Kit del numero di Oicembre 1983 Luigi Feliciani - Via 
Rastrelli. 115 - 00128 Roma - Tel. 06/6480689 


A Cologna Veneta, in provincia di Verona, si è costituito un Club 
di utenti CBM 64 per scambi di programmi, esperienze ed idee 
Disponibile moltissimo software, manuali e novità Michele Da¬ 
nese - Via Gioacchino Rossini. 2 - 37044 Cologna Veneta (VR) - 
Tel 0442/85287 


Vendo per CBM 64 programma elaborazione sistemi Totocalcio 
da 2 doppie a 23 triple, assoluta libertà di scelta pronostico, 
correzione d'errori, limitazione segni, controllo vincite Lorenzo 
Natale - Piazza S. 8argellini. 5 - 00157 Roma 


Finalmente anche a Caserta il C.C.C. (Commodoro Computer 
Club), Viale Europa 50. 81022 Casagiove (CE), tei. 0823/469775- 
342536 (orario 14-21). 


Vendo VIC 20 come nuovo a sole L. 150.000. Vendo inoltre 2 
cartridge (Cosmic Cruncher e Solar Vislblo System) a L. 10.000 
cadauna. Telefonare ore pasti. Giuseppe Mazzacane - Via G. 
Fanelli. 226/40 - 70100 Bari (BA) - Tel. 080/481614 


Vendo C64 più floppy disk, plotter 1520, registratore. 250 pro¬ 
grammi. tight pen. Tutto per L. 1.000.000 trattabile o separata- 
mente Telefonare per informazioni. Massima serietà. Non per¬ 
dete quest’occasione. Fabio Muzzi - Via Viazzolo. 3 - 40124 
Bologna - Tel. 051/333289 


Compro manuale G-Pascal, Screen Graphics con manuale, Pel 
Speed Compiler con manuale. Giampietro Frizzi - Via Fiume. 6 - 
38068 Rovereto (TN) - Tel. 0464/31072 


Vendo VIC 20 poco usato ed In perfetto stato a L. 159.000. In 
regalo varie cassette e una cartuccia. Telefonare ore pasti. 
Mauro Imbriani - Via Veglie. 85 - 73041 Carmiano (LE) - Tel. 
0832/671562 676225 
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Vendo VIC 20 più registratore, espansione grafica, espansione 
16 Kbyte più varie cassette giochi, il tutto a sole L. 300.000 
trattabili. Chiamare ore pasti. Settembrino Gerardo • Via F. 
Pepe. 44 - 88069 Squillace (CZ) - Tel. 912264 


Carco monitor a colori da cambiare con i miei programmi per 
CBM 64. solo se in buone condizioni. Saverio Pensabene - 
Lungomare C. Colombo. 3544 - 90149 Palermo - Tel. 091/451425 


Sinclair 


Vendo Spectrum 48 Kbyte, un anno di vita In otllmo stato con 4 
libri (manuale, linguaggio macchina e Assembler per principian¬ 
ti, 77 programmi, programmazione dello Spectrum) più 10 cas¬ 
sette. 40 games, Pirata solo a L. 500.000. Telefonare ore pasli. 
Sergio Pirola - Via G. Mazzini, 22 - 20061 Carugate (MI) - Tel. 
9253001 


Vendo ZX Interface 1 più ZX mlcrodrlve come nuovi, completi di 
imballaggio e manuali originali a L. 275.000 non trattabili. Si 
assicura la massima serietà. Stefano Pavanello - Via D. Manin. 
10 - 40026 Imola (BO) - Tel. 0542/32779 


Vendo Spectrum 48 Kbyte tastiera professionale più pad. 
Interruttore con lOOottimi programmi, cavetti registratore. Tutto, 
in ottimo stato, a L. 550.000 oppure anche separatamente. Fran¬ 
co Chiavetta - Via Ferdinando Di Giorgi. 4 - 90145 Palermo - Tel. 
091/554264 


Vendo ZX81 più espanalone 64 Kbyte più espansione grafica, 
Assembler su ROM, istruzioni in inglese ed italiano, 3 libri sul 
BASIC e LM, cavetti. 200 programmi su cassetta e listati a L. 
500.000 non trattabili. Francesco Adornato - Via C. Dentato. 11 • 
20144 Milano - Tel. 02/470372 


Vendo Lotto 13: analizza ritardi e frequenze di tutti gli ambi. num. 
simp.. rit. glob.. in 30 anni di estrazioni consultabili, aggiornabi¬ 
le. manuale dettagliato. Su 11 cassette per ZX Spectrum a L. 
94.000. Michelangelo Gargiulo - Tel. 081/8788203 


Vendo Spectrum 48 Kbyto più manuale in italiano, cassetta 
istruzioni, 50 giochi famosissimi: Hobbit. Mugsy. Chequered 
Flag. Il tutto a L. 400.000. Massimo Milanesio • Via Rio Freddo, 32 
- 10020 Revigliasco Torinese (TO) - Tel. 011/8609792 


Per ZX Spectrum vendo eccezionali programmi gestionali per¬ 
sonalizzabili. Faccio qualsiasi programma gestionale mi venga 
richiesto. Davide Guernieri - Via Stazione, 2/1 - 30035 Mirano 
(VE)-Tel. 041/436011 


Causa passaggio a sistema superiore vendo ZX Spectrum Issue 
3 più interfaccia 1. microdrive (tutto ancora imballato). 4 cartrid- 
ges, collezione completa rivista su cassetta "Run" e rivista 
“Sinclair computer". 6 libri per apprendere BASIC, linguaggio 
macchina, gestione informazioni; più linguaggi Pascal. Assem¬ 
bler e FORTH. 300 programmi con i migliori videogames e le 
migliori utiliies. Tutto a L. 700.000 (50% dei prezzi di listino). 
Telefonare ore pasti. Tel. 06/3280885 - 075/45734 


Texas 


Vendo modulo Extended BASIC per TI 99/4A, incluso manuale in 
inglese, a L. 200.000 trattabili. Buratti Maurizio - Via Puccini. 3 - 
20035 Lissone (MI) - Tel. 039/462317 


Vendo a L. 15.000 cassetta programma Inedito per TI 99/4A 
Extended BASIC. Sistemi integrali o ridotti per numero massimo 
e minimo di: segni "12X“ su tutta la schedina e/o serie B-C; e/o 
errori su colonna base; e/o macchie. Telefonare dalle 18 alle 21. 
Domenico Bocchetti - Via Fontana. 27 isol. 21 -80128 Napoli - Tel. 
081/254751 


Vendo, causa passaggio a sistema superiore. TI 99/4A più ali¬ 
mentatore. adattatore PAL Color TV. coppia joystick, interfaccia 
per due registratori, cartridge "Gestione familiare", manuale 
d’uso, programmi a L. 250.000. Roberto Umeton - Via Tarvisio. 6 - 
20125 Milano - Tel. 02/6704766 


Compro modulo SSS Extended BASIC per TI 99/4A completo di 
manuale. Mario Scarani • Via Nazionale Appia (WF). 25 - 81100 
Caserta - Tel. 0823/466676 


Vendo TI 99/4A completo di allmentatoro, modulatore, cavo 
registratore. SSS Tombston City e svariati giochi su cassetta. 
Tutto nuovo a L. 350.000, compreso abbonamento annuale a 
rivista dedicata. Stefano Testoni - Via Giraldi, 34 - 44040 Dodici 
Morelli (FE)-Tel. 051/971314 


Vendo TI 99/4A più alimentatore, modulatore, cavo per registra¬ 
tore. circa 60 programmi in 2 cassette. 2 libri di programmi. 3 
moduli SSS (Munchman. The Hustle, Football). Tutto in perfetto 
stato a L. 350.000 trattabili. Fabrizio Teodosi - Via Garibaldi. 110 - 
60035 lesi (AN) - Tel. 0731/59360 


Vendo computer TI 99/4A completo di alimentatore, modulatore 
TV. cavetti e registratore Sanyo a L. 380.000 trattabili. Scrivere o 
telefonare ore pasti serali. Marco Fregapane - Via D'Aragona. 4 - 
20063 Cernusco S/Naviglio (MI) - Tel. 02/9243741 


Vendo TI 99/4A più perif. box. Extended BASIC, cassette per 
imparare BASIC ed Extended BASIC. SSS didattici. Tutto, in 
ottimo stato, a chi primo arriva per L. 350.000. Separatamente 
vendo Logo per TI 99/4A. Agostino Michelonl - Via Antonio 
Provolo. 20 - 37123 Verona - Tel. 045/21419 


Vendo Extended BASIC più Assembler completo di dischetti e 
manuale, P.R.K., "Imparare l’Extended BASIC" originale Texas. 
Tutto in blocco a L. 500.000. Domenico Gallina - Piazza Mameli. 
4/7-17100 Savona - Tel. 019/20805 


Vendo per TI 99/4A cassetta con 11 programmi BASIC/Extended 
BASIC. Claudio Massucco - Via Trieste. 18/A 15067 Novi Ligure 
(AL)-Tel. 76217 


Vendo TI 99/4A più libri, coppia joystick, cavetti per registratore. 
1 modulatore TV. 1 unità di alimentazione a L. 300.000 trattabili. 
Sergio Pagani • Via Quarenghi, 2 - 24050 Calcinate (BG) • Tel. 
841206 


Vendo TI 99/4A completo di accessori e cavo per registratore, 
funzionamento perfetto, a L. 270.000. Paola Alberti - Via Buozzi. 
13 - 41100 Modena - Tel. 059/253234 


Vendo TI 99/4A porlottamonto funzionante completo di un modu¬ 
lo SSS (TI Invadere) più joystick della Texas, cavo per il registra¬ 
tore. Il tutto in blocco a L. 260.000 trattabili. Enzo Cascino - Via 
Settimo. 20/B - 10071 Borgaro Torinese - Tel. 011/4703514 


Per TI 99/4A vendo monitor a colori Prandonl 14” semlnuovo con 
cavetto e imballo per cambio sistema a L. 400.000 trattabili. 
Massimo Gardumi - Via Bersaglio. 12 - 38068 Rovereto (TN) - Tel. 
35520 


Vendo modulo SSS Extended BASIC al miglior offerente. Telefo¬ 
nare ore pasti. Stefano Castagnaviz - Via C.T. Odescalchi, 77 - 
00147 Roma - Tel. 06/5208727 


Vendo TI 99/4A più modulo SSS "Scacchi”, cavo registrazione, 
modulatore TV. un libro sul TI 99.4 cassette programmi, giochi e 
Utilities ed altro per L. 250.000 più spedizione (trattabili). Davide 
Pignat - Pendice Scoglietto 5/3 - 34127 Trieste - Tel. 040/577275 


Vendo Texas TI 99/4A con modulo Extended BASIC, libri vari, 
cassette programmi, schema elettrico consolle a L. 350.000. 
Pietro Viani - Via 5 Maggio. 11 - 20157 Milano - Tel. 02/3552508 


Acquisto per Texas TI 99/4A II seguente materiale: disk drive - 
disk controller • RS232 anche separatamente, purchò in buono 
stato. Omar Nascani - Via Mercato Nuovo. 8 - 05100 Terni - Tel 
0744/55967 


Vendo computer TI 99/4A quasi nuovo (sei mesi di vita) più 
cavetti originali. 2 joystick, manuale, libro "L’home computer TI 
99/4A". cassetta di giochi fantastici a L. 350.000. Marco Sandei - 
Via Pralesi, 7/1 - 37010 Cisano (VR) - Tel. 045/7210298 


Vendo per TI 99/4A modulo "Hunt The Wumpus”, due cassette 
della serie Adventure: Adventureland e Ghost Town, cavetto 
doppio per registratore (CS2), programmi e listati (anche in 
Extended BASIC). Luca Carazza - Via Lodi. 2 -10152 Torino - Tel. 
011/237041 


Cerco TI 99/4A con o senza BASIC esteso a buon prezzo. Cerco 
inoltre Speech Sinthetyser e Terminal Emulator. Telefonare 
dopo le ore 20 a: Aversano Vincenzo - Via Robino, 96g/3 -16142 
Genova - Tel. 010/882830 872850 



RIVENDITORE AUTORIZZATO 

Q^cippkz computer ine. 



Software 

Contabilità generale 80CL Prodos 
Contabilità semplificata 
multiaziendale 
Gestione Parrocchie 
Gestione Alberghi 
Parcellazione studi legali 
Fatturazione su MAC 

Hardware 

Interfacce per Olivetti 
ET 121 /201 /221 / 111 
Interfacce per Adler 
G 8008 SE/ 1005/ 1010/1030 
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Vendo TI 9914A più c«vl veri, doppio joystick, modulo SSS Biasio, 
manuale, olire 40 programmi su cassetta al miglior ofteronte 
Massima serietà Marco Traballoni • Via Rossini. 57 • 20038 
Seregno (MI) • Tel. 0362/237448 


Vendo TI 99/4A come nuovo (6 mesi vita) a sole L. 250 000 
completo di registratore compatibile causa passaggio a slstoma 
più potente. Telefonare dallo 14.30 allo 15.30. Domenico Di Solvo 
• Via Delle Betulle. 2-97100 Ragusa - Tel 0932/23336 


Non gettare il tuo TI 99/4A se rotto. Inutilizzabile o danneggiato 
Irrimediabilmente, lo sarei interessato all'acquisto di tutto l'har- 
dware per il TI 99/4A in questo stalo Gian Luigi Calzolaro • Via 
M della Benedicta. 3/12 - 16010 Rossiglione (GE) - Tel 
010/925447 


Eccezionale: vendo per TI 99/4A modulo Extended BASIC con 
manuale Itallano/lnglese, corso su cassetta, cassetta giochi 
tutta in Extended BASIC a L 250.000 Telefonare a: Giovanni 
Caravetta - Via Toscana, 30 - 00187 Roma - Tel 06/4753906 


Varie 


Scambio rara collezione di partiture musicali, spartiti, più di 
1.000 titoli, genere vario, con software per VIC 20 in cassetto o 
listati. Cerco espansione 16 Kbyte Francesco lozia - Via Dello 
Stadio. 4-97014 Ispica(RG) 


Cerco per Sharp MZ 700 giochi con ottima grafica, ottimo sonoro 
e molto divertenti (preferibilmente famosi) Matteo Bottini • Via 
Prua. 20 - 20100 Milano - Tel 02/4695685 


Vuoi un posto dovo stare tra amici o parlare di computer? 8prlle 
Computer Club - Via Vagnone, 3 • Torino ò per te! Aporto ogni 
mercoledì dalle 17 30 alle 20.00. Ciao. Roberto Marchiai • Via 
Gatti. 30/A - 10098 Rivoli (TO) • Tel 9585139 


■ Vendo Computer NE 40 Kbyte. usato un mese, con. ■ 

■ LX380/38IB/382/363/384/385/386/387/388/390/391/392. ca- ■ 

■ vi. mobili, dischi a L 700 000. video fosfori verdi, floppy ■ 

■ BASF L 900 000 Vendita trattabile Carlo Pasini • Via Del ■ 

■ Limite. 19 - 4802? Lugo (RA) - Tel 0545/24626 ■ 


Causa passaggio ad altro sistema vendo Sharp MZ-700 com¬ 
prensivo di 15 videogiochl più altri programmi, registratoro e 
manuale di programmaziono BASIC Tutto a L. 650.000 trattabili 
Tro mesi di vita. Daniele Nlccheri • Via Piemonte. 24 • 50100 
Firenze - Tel 055/374852 


Vendo al miglior offerente HP41CV più modulo Mathl • molti 
listati; come nuova, con tutti gli accesoci; disponibile per dimos¬ 
trazioni e prove Prezzo base L 300.000 Luigi Roberto Callegan 
- Via Alcide De Gasperi. 47 - 21040 Sumirago (VA) • Tel. 
0331/909183 


Vendo Vldeopac Philips G7000 con 7 cassette stupendo a L. 
380.000 trattabili Eventualmente permuto con software per 
Commodore 64. Scrivere o telefonare. Filippo Cappio - Via Re¬ 
pubblica. 59 - 13051 Biella (VC) - Tel. 0165/31746 


Vendo consolle Intellevlslon con 6 cassette: Soccer. Poker. Frog. 
Bog. Burger Time. Ice Trek. Tron II in ottimo stato con imballag¬ 
gio e cataloghi a L 300 000 trattabili. Sergio Castaldo • Via Parco 
San Paolo. 32 - 80126 Napoli - Tel. 081/7674796 


Sei anche tu un utente Vlctor-Slrfus? Scrivimil Potremmo esserci 
utili a vicenda. Salvo Giudice - Via S. Pio X. 50 - 31031 Caerano S 
Marco (TV) - Tel 0423/858201 


Eseguo perfette traduzioni di qualsiasi testo Inglese (manuali, 
riviste, articoli, programmi, ecc ). Consegno veloci e prezzi 
competitivi Telefonare dopo le 19. Angela Valvo • Via Volontari 
del Sangue. 6 - 20092 Cinisello Balsamo (MI) * Tel 02/6124138 


Cerco le seguenti riviste; "Personal Software" dal n. 1 al n. 18 e 
"MC Mlcrocomputer" dal n. 1 al n. 30. Compro purché in buone 
condizioni e ad un prezzo ragionevole Pietro Garitta • Via F.sco 
Speciale. 13 • 90129 Palormo - Tel 091/481031 


Vendo Sega SC 3000 completo di cavi, 3 cartridge giochi. BASIC 
IMA 16 Kbyte. oltre 40 programmi, combinatore telefonico con 
software di gestione Solo L 400 000? Tratto solo con la zona di 
Roma Carlo Forrarl - Via S. A. Menci. 90 • 00162 Roma - Tel 
06/8316783 


Vendo consolle Intellevlslon più cassetta Black Jack o Poker, 
praticamente nuova a L. 250.000. Telefonare oro pasti o scrivere 
a: Fulvio Zanuso - Via G. Di Vittorio, 1/2 - 17048 Volteggia (SV) - 
Tel 019/882508 


Vendo Sharp MZ 700 più registratore, video, floppy 3“. inter¬ 
faccia ROM 16 Kbyte. nuovo BASIC (200 istruzioni), utility, giochi. 
2 scatole di dischi a L 1 400.000 trattabili, oppuro vendo separa¬ 
tamente. Marco Martini - Via Don Perduca. 51/C • 15057 Tortona 
(AL)-Tel. 0131/867219 


Vendo per motivi familiari Philips P2000C mal usalo: 2FD da 640 
Kbyte cadauno con CP/M 2 2. Wordstar 3 0. CalCastar 1.2, MBA- 
SIC Chess da 32 Kbyte più stampante Honeywell S31 a L. 
5.500.000 trattabili. Valore commerciale L. 6 650 000. Paolo Ta- 
baglio - Via Luigi Ercoli. 10 - 25128 Brescia • Tel. 030/302507 


Vendo Enciclopedia Curdo "BASIC” a L. 40.000 al volume. Ogni 
volume è rilegato perfettamente. Vendo tutti i 6 volumi, vero 
affare Marco Caldana • Vis Genova. 10 • 17027 Pietra Ligure 
(SV)-Tel 019/612622 


Vendo Consolle Intellevlslon usata pochissimo più cassette Tri¬ 
ple Action. Hockey e Tennis a L. 330 000. Il lutto in confezione 
originale. Telefonare o. meglio, scrivere a. Paolo Mazzetti - Via 
Frà Bartolomeo. 62 - 50047 Prato (FI) - Tel. 594235 



Riviste firmate JACKSON 


AIHOMAIIONI 

Un'aggiornatissima panoramica delle nuove 
tecnologie microelettronlcho e informatiche 
applicato all’automazione industriale 
11 numeri all'anno: L 3.500 a numero 
Abbonamento: solo L 30.500 


elettronica 


Il punto di riferimento più qualificato por chi 
voglia aggiornarsi su prodotti, applicazioni, 
tecnologie elettroniche, in Italia e all'estero 
11 numeri all’anno: L 3.500 a numero 
Abbonamento solo L 31.000 


l'Elettronica 


PERSONfìL 

SOFTWARE 

Aspetti e problemi del software per personal 
computer, programmi, giochi e sistemi 
operativi. 

11 numeri all’anno L 4.000 a numero 
Abbonamento solo L 34.000 


Person£J] 


Quindicinale di politica industnale. 
componentislica. informatica e 
telecomunicazioni por uomini di marketing, 
responsabili acquisti, manager di settore 
22 numeri all'anno: L 2.500 a numero 
Abbonamento: solo L 44.000 

NomncA 

La rivista professionale por chi si occupa di 
sistemi: dai microcomputer ai mini, ai 
supermini, ai mainframe Con notizie in 
anteprima dall'America 
11 numeri all’anno: L 3.500 a numero 
Abbonamento solo L 31.000 

UIDCO 

GlOChi 

La guida indiscussa al fantastico mondo dei 
vldoogames. La più eccitante, divertente, 
istruttiva rassegna del settore 
11 numeri all'anno: L 3.500 a numero 
Abbonamento: solo L 31.000 


Le frontiere aperte dalla telematica, le 
telecomunicazioni professionali in tutti i loro 
sottosetton 

10 numeri all'anno: L 3.500 a numero 
Abbonamento: solo L 28.000 


PC 


elektor 


L'unica rivista italiana dedicata ai sistemi 
MS-DOS. Personal computer IBM e 
compatibili 

10 numeri all'anno L 5.000 a numero 
Abbonamento solo L 40.000 


L'unica rivista indipendente per gli utenti dei 
personal computer Olivetti 
10 numeri all'anno L 4.000 n numero 
Abbonamento: solo L 35.000 


(XJMPUSOJOLA 

La rivista di informatica nolla didattica per la 
scuola italiana 

9 numeri all'anno: L 2.000 a numero 
Abbonamento solo L 15.000 

Quando l’informazione 
fa testo 


Il mensile di elettronica venduto in mezzo 
milione di copie e redatto in 7 lingue. Con 
articoli su applicazioni, progettazioni, 
sperimentazioni, invenzioni 
11 numeri all'anno L 3.000 a numero 
Abbonamento solo L 29.000 





La rivista del computer in casa “Prove su 
strada" di software e programmi per tutti i 
personal computer 
11 numeri all'anno L 3.500 a numero 
Abbonamento: solo L 31.500 


Il mondo delle 7 note in 
versione ...elettronica. Con test strumentali, 
novità e analisi del mercato, servizi speciali. 
10 numeri all'anno: L 3.000 a numero 
Abbonamento: solo L 24.000 


La prima rivista ouropoa di personal 
computer, software o accessori. Con test, 
novità, analisi del marcato¬ 
li numeri all'anno L 5.000 a numero 
Abbonamento: solo L 43.000 


In busta chiusa Inviate questo coupon a: 
Gruppo Editoriale Jackson 
via Rosellini, 12 - 20124 MI 
□ Desidero ricevere GRATIS un numero 
della Rivista 


(allego L 1.000 in francobolli por 
contributo spese di spedizione) 

□ Inviatemi GRATIS li Catalogo della 
Biblioteca JACKSON (allego L 1,000 
In francobolli per contributo spese di 
spedizione) 
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ibri firmati JACKSON 


Douglas Hergert 

IL BASIC NEGLI AFFARI 

Il libro insegna a leggere, scrivere e provare programmi 
BASIC per tipiche applicazioni da ufficio. 

Nei primi capitoli viene presentato il linguaggio BASIC 
e vengono descritti gli elementi fondamentali della 
programmazione. Ogni gruppo di istruzioni è poi 
illustrato con esempi di programmi relativi ad 
applicazioni per l'ufficio e con diversi esercizi; di alcuni 
di questi sono fornite le soluzioni. 

Completa il libro una breve introduzione ad altri tre 
linguaggi di programmazione: FORTRAN, COBOL e 
PASCAL, che vengono confrontati con il BASIC. 

202 pagine 

Codice 402H L. 18.000 




K 


X.T. Bui 

LA GESTIONE AZIENDALE CON IL BASIC 

Il libro presenta i principali problemi di gestione 
aziendale, spiegandone i fondamenti teorici e la 
realizzazione in linguaggio BASIC. 

Con I numerosi esempi di applicazioni, ispirati a 
situazioni reali, l'autore vuole dimostrare che ogni 
responsabile, che debba prendere decisioni neH’ambito 
di un'azienda, può accedere direttamente al calcolatore 
e ottenere elementi di analisi, pianificazione e controllo. 

188 pagine 

Codice 403H L. 15.000 

Francis Samish 

GUIDA ALLA SCELTA DEL PERSONAL 
COMPUTER 

Il segreto per un acquisto intelligente sta nel conoscere 
bene che cosa si vuole ottenere e, in base a questo, 
quale hardware e quale software sono necessari. 
Questo libro affronta il problema in modo esauriente, 
fornendo un’ampia panoramica delle macchine che 
possono essere utili in casa e in ufficio, con il relativo 
software. 

Per chi già possiede un personal, fornisce utili 
indicazioni su come ottimizzarne l'utilizzo o completare 
il sistema. 

118 pagine 

Codice 400P L. 12.000 


GRUPPO 

(orroRiAu 

JACKSON 


Attenzione compilare per Intero 
la cedola 

ritagliare (o fotocopiare) e spedire 
in busta chiusa a: 

GRUPPO EDITORIALE JACKSON 

Divisione Libri 

Via Rosellini, 12 - 20124 Milano 


La Biblioteca che fa testo 
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spese di spedizione. 
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su c/c n 11666203 a voi intestato 
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su vaglia postale a voi intestato 
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LIBRI FIRMATI JACKSON 


PER 

Oltre alla qualità dei programmi 
contenuti inquesto libro, edanota 
re la varietà delle applicazioni e 
degli argomenti pei la cui realizza¬ 
zione. si è cercato di utilizzare al 
massimo le nuove interessanti pie 
stazioni dello Spectrum quali le 
nuove istruzioni BASIC la velocita 
il suono, e soprattutto il colore e la 
grafica 

Cod 566A Pag 150_lire 24 000 

eoo cationi 

Roberto Rigo 

SPECTRUM TOOL. 

Programmi di qualità: grafica e 
gioco 

Questo libro piopone una serie di 
interessanti programmi BASIC che 
si servono di routine scritte in tiri 
guaggro macchina CM cnwR , 
Cod 5670 Pag. 186_Lire 24 000 


Mark Ramshaw _ 

GIOCHI GIOCHI GIOCHI 
PER IL VOSTRO VIC 20 

I giochi quanti hanno cominciato 
proprio da qui a interessarsi di Per¬ 
sonal Computer’ 

Questo libro ne presenta diversi di 
diversa difficoltà due parole su co¬ 
me si gioca e poi il listato del pro¬ 
gramma 

Cod 5680 Pag 114_lire 24 000 

co* emana 

Tini Hartnell 

SINFONIA 

PER UN COMPUTER: VIC 20 

Ouesto libro è un invito a imparare 
divertendosi prima giocate ma 
poi date un occhiata ai listati dei 
programmi Imparerete alcune tec¬ 


niche semplici ma raffinate per 
raggiungere gli effetti piu spcttaco 
lari, e queste vi serviranno senz'ai 
tro quando dai giochi vorrete pas¬ 
sare ad applicazioni serie 
Cod 5650 Pag. 130_lire 24 000 

con ciuttli 

Owen Bishop 

IL LIBRO DEI GIOCHI 
DEL COMMODORE 64 

Ogni programma è corredato da 
istruzioni che ti insegnano l'uso dei 
giochi II modo in cui essi funziona¬ 
no è esposto in dettaglio, con alcu¬ 
ni accorgimenti sulle tattiche vin¬ 
centi Vengono dati pure alcuni 
consigli su come modificare i gio¬ 
chi in forma creativa per adattarli 
alle tue idee 

Cod. 3500 Pag. 158_Lire 24000 

eoa caiaona 

Nigel Freestone 

DATABASE: 

L'UTILE E IL DILETTEVOLE 

Il libro, studiato pei chi vuol tare 
da sé" con il calcolatore, parla di 
quella cheèla materia prima dell e 
laborazione, i dati, ealtronta il pro¬ 
blema della loro memorizzazione, 
della loro organizzazione all inter¬ 
no del computer e delle operazioni 
che si possono fare su di essi 
Cod 500H Pag. 160_Lire 15 000 


GRUPPO EDITORIALI 
JACKSON 


Francesco Lentim 

CONOSCI TE STESSO 
TRAMITE IL TUO PERSONAL 
COMPUTER 

Il libro si compone di cinque capito¬ 
li. ognuno dei quali attinge ad una 
delle discipline che affrontano in 
qualche modo lo studio della per¬ 
sonalità umana Numerologia. 
Astrologia. Grafologia Scienza del 
Comportamento. Test di Intelligen¬ 
za 

I programmi sono stati scritti per 
Apple II e sono disponibili su cas¬ 
setta e dischetto 

Cod. 4120 Pag. 128 Lire 24.000 

Michel Benelloul 

GIOCHI. TRUCCHI E CONTI 

Ouesto libro e destinalo soprattut¬ 
to ai programmatori principianti i 
suoi 29 programmi, presentati con 
una ricca documentazione, sono 
pronti per essere eseguili Gli argo¬ 
menti sono fanti e rispondono alle 
esigenze più disparate II BASIC e 
quello dei calcolatori PET/CBM di 
cui vengono sfruttate a pieno le 
molte funzioni 

Cod. 5530 Pag. 164_Lire. 24.000 

eoo canotto 

W Carris 

BASIC ATARI 

Un ottimo libro per chi non ha alcu¬ 
na esperienza di programmazione 
e di computer per chi sà tutto Sul 
BASIC ma non sul Basic Atan e 
mime per i programmatori Alari 
che potranno usare il testo come 
manuale di riferimento. 

Cod. 4090 Pag. 192 Lire 18 000 
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INCREDIBILE 

TASTIERA - MIDI - SEQUENCER - BATTERIA PROGRAMMABILE 

COMPUTER COMPATIBILE... 



MK900 

MIDI KEYBOARD 

Tastiera portatile stereo - 
MIDI compatibile - a doppia 
generazione sonora 

Possibilità di 

collegamento a computers 



Pedale d espressione 
(opzionale) 



MIDI IN e MIDI OUT 

10 ritmi + 1 ritmo 
programmabile dall’utente 

10 Presets a doppia 
generazione sonora 

Sequencer in tempo reale: 
260 note + pause, 50 
accordi, batteria per 
memorizzazione dati 


Divisione della tastiera Demo Song 

programmabile che permette 
di suonare Accompagnamento 

contemporaneamente 2 automatico multifunzione 

timbri oppure un solo timbro 

con polifonia 14 Controcanto automatico 


Transpose, Detune, Stereo 
Chorus 



Una straordinaria 
ricchezza timbrica e una 
insuperabile versatilità 
sintetizzate in uno 
strumento a 
microprocessore dalla 
estrema facilità d’uso 



Midi Compuier Interface 
(opzionale) 


Amplificazione stereo con 
due altoparlanti biconici a 
sospensione pneumatica 
incorporati 

Tastiera a 61 tasti 

Peso: kg. 6 
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Distribuito da 

ARAMINI 


STRUMENTI MUSICALI 


CadnanodiGranarolo. vtaB Buozzt. lb(Bologna) 
Tel 051,766 077 



























